Shareware Grab Bag/Shareware Grab Bag.iso/007/68000dsm.cq/68000dsm.c

Text File | 1985-11-20 | 134.9 KB | 4,310 lines

Article 2660 (70 more) in net.sources:
From: [e-mail] (John Collins)
Subject: 68000 Disassembler
Message-ID: <[e-mail]>
Date: 15 Aug 85 23:11:30 GMT
Date-Received: 24 Aug 85 05:01:10 GMT
Reply-To: [e-mail] (John Collins)
Organization: --- NONE ---
Lines: 4303
Xpath: icdoc ivax

--MORE--(0%)This is the 68000 disassembler mentioned on the net.
It is not my final version by any means, but I have found it extremely
useful and it represents severl weeks' work.

        John Collins.

You should get the following files:

        doc             - MM macros
        makefile
        unc.h
        alloc.c
        file.c
        heur.c
        iset.c
        libmtch.c
        main.c
        prin.c
        robj.c

To extract /bin/sh the remainder of the file after the next line
------------------------------cut here------------------------------

# To unbundle, sh this file
echo doc 1>&2
sed 's/.//' >doc <<'//GO.SYSIN DD doc'
-.\"/*% nroff -cm -rL72 %|epson|spr -f plain.a -h uncdoc -w
-.nr Hb 7
-.nr Hs 3
-.ds HF 3 3 3 3 3 3 3
-.nr Hu 5
-.nr Hc 1
-.SA 1
-.PH "''A Disassembler''"
-.PF "'Issue %I%'- Page \\\\nP -'%G%'"
-.H 1 "Introduction"
-This document describes the first release of a disassembler for UNIX
-executable files.
-The key features are:
-.AL
-.LI
-For object files the output can be assembled to generate the same
-object module, (apart from minor variations in symbol table ordering) as the
-input.
-.LI
-For stripped executable files object modules and libraries may be scanned,
-modules in the main input identified and the appropriate names automatically
-inserted into the output.
-.LI
-An option is available to convert most non-global names into local symbols,
-which cuts down the symbols in the generated assembler file.
-.LI
-The disassembler copes reasonably with modules merged with the
-.B "-r"
-option to
-.B "ld" ,
-generating a warning message as to the number of modules involved.
-.LE
-.P
-At present this is available forcertain Motorola 68000 ports of UNIX
-System III and System V. Dependencies on
-.AL a
-.LI
-Instruction set.
-.LI
-Object module format.
-.LI
-Library module format.
-.LI
-Assembler output format.
-.LE
-.P
-are hopefully sufficiently localised to make the product useful as a
-basis for other disassemblers for other versions of UNIX.
-.P
-The product is thus distributed in source form at present.
-.H 1 "Use"
-The disassembler is run by entering:
-.DS I
-unc mainfile lib1 lib2 ...
-.DE
-.P
-The first named file is the file to be disassembled, which should be
-a single file, either an object module, a (possibly stripped) executable
-file, or a library member. Library members are designated using a
-parenthesis notation, thus:
-.DS I
-unc '/lib/libc.a(printf.o)'
-.DE
-.P
-It is usually necessary to escape the arguments in this case to prevent
-misinterpretation by the shell. Libraries in standard places such as
-.I "/lib"
-and
-.I "/usr/lib"
-may be specified in the same way as to
-.B "ld" ,
-thus
-.DS I
-unc '-lc(printf.o)'
-unc '-lcurses(wmove.o)'
-.DE
-.P
-As an additional facility, the list of directories searched for
-libraries may be varied by setting the environment variable
-.B "LDPATH" ,
-which is interpreted similarly to the shell
-.B "PATH"
-variable, and of course defaults to
-.DS I
-LDPATH=/lib:/usr/lib
-.DE
-.P
-As a further facility, the insertion of
-.B "lib"
-before and
-.B ".a"
-after the argument may be suppressed by using a capital
-.B "-L"
-argument, thus to print out the assembler for
-.I "/lib/crt0.o" ,
-then the command
-.DS I
-unc -Lcrt0.o
-.DE
-.P
-should have the desired effect.
-.P
-Second and subsequent file arguments are only referenced for stripped
-executable files, and may consist of single object files and library
-members, using the same syntax as before, or whole libraries of object
-files, thus:
-.DS I
-unc strippedfile -Lcrt0.o -lcurses -ltermcap '-lm(sqrt.o)' -lc
-.DE
-.P
-It is advisable to make some efort to put the libraries to be searched
-in the order in which they were originally loaded. This is because the
-search for each module starts where the previously matched module ended.
-However, no harm is done if this rule is not adhered to apart from
-increased execution time except in the rare cases where the disassembler
-is confused by object modules which are very nearly similar.
-.H 1 "Additional options"
-The following options are available to modify the behaviour of the
-disassembler.
-.VL 15 2
-.LI "-o file"
-Causes output to be sent to the specified file instead of the standard
-output.
-.LI "-t prefix"
-Causes temporary files to be created with the given prefix. The default
-prefix is
-.B "split" ,
-thus causing two temporary files to be created with this prefix in the
-current directory. If it is desired, for example, to create the files as
-.B "/tmp/xx*" ,
-then the argument
-.B "-t /tmp/xx"
-should be given. Note that the temporary files may be very large as a
-complete map of the text and data segments is generated.
-.LI "-a"
-Suppresses the generation of non-global absolute symbols from the
-output. This saves output from C compilations without any obvious
-problems, but the symbols are by default included in the name of
-producing as nearly identical output as possible to the original source.
-.LI "-s"
-Causes an additional scan to take place where all possible labels are
-replaced by local symbols. The local symbols are inserted in strictly
-ascending order, starting at 1.
-.LI "-v"
-Causes a blow-by-blow account of activities to be output on the standard
-error.
-.LE
-.H 1 "Diagnostics etc"
-Truncated or garbled object and library files usually cause processing
-to stop with an explanatory message.
-.P
-The only other kinds of message are some passing warnings concerning
-obscure constructs not handled, such as the relocation of byte fields,
-or the relocation of overlapping fields. Occasionally a message
-.DS I
-Library clash: message
-.DE
-.P-may appear and processing cease. This message is found where at a late
-stage in processing libraries, the program discovers that due to the
-extreme similarity of two or more library members, it has come to the
-wrong conclusion about which one to use. The remedy here is to spell out
-to the program which members to take in which order.
-.H 1 "Future development"
-In the future it is hoped to devise ways of making the disassembler
-independent of all the above-mentioned version dependencies, by first
-reading a files defining these things. This will probably be applied
-after the Common Object Format becomes more standard.
-.P
-In the long term it would be desirable and useful to enhance the product
-to produce compilable C in addition to assemblable assembler. Stages in
-the process are seen as follows:
-.AL
-.LI
-Better identification of basic blocks in the code. Switch statements are
-a major problem here, as are constant data held in the text segment.
-.LI
-Marrying of data to the corresponding text. It is in various places hard
-to divorce static references "on the fly" (e.g. strings, and switch
-lists in some implementations) from static at the head of a module. This
-is part of the problem of identifying basic blocks.
-.LI
-Compilation of header files to work out structure references within the
-text. At this stage some interaction may be needed.
-.LE
-.P
-Meanwhile the product is one which is a useful tool to the author in its
-present form. Comments and suggestions as to the most practical method
-of improving the product in the ways suggested or in other ways would be
-gratefully considered.
//GO.SYSIN DD doc
echo makefile 1>&2
sed 's/.//' >makefile <<'//GO.SYSIN DD makefile'
-CFLAGS=-v -OB
-OBJS=alloc.o file.o libmtch.o robj.o iset.o prin.o heur.o main.o
-
-unc:   $(OBJS)
-       cc -o unc $(OBJS)
-
-$(OBJS):       unc.h
//GO.SYSIN DD makefile
echo unc.h 1>&2
sed 's/.//' >unc.h <<'//GO.SYSIN DD unc.h'
-/*
- *     SCCS:   @(#)unc.h       1.2     11/2/84 1421:02
- *     Header file for uncompile program.
- *
- ***********************************************************************
- *     This software is copyright of
- *
- *             John M Collins
- *             47 Cedarwood Drive
- *             St Albans
- *             Herts, AL4 0DN
- *             England                 [phone]
- *
- *     and is released into the public domain on the following conditions:
- *
- *             1.  No free maintenance will be guaranteed.
- *             2.  Nothing may be based on this software without
- *                 acknowledgement, including incorporation of this
- *                 notice.
- *
- *     Notwithstanding the above, the author welcomes correspondence and bug
- *     fixes.
- ***********************************************************************
- */
-
-#define        MAXCHARS        50
-#define        HASHMOD         97
-
-/*
- *     The following structure is used to keep track of symbols.
- */
-
-struct symstr  {
-       struct  symstr  *s_next;                /*  Next in hash chain  */
-       struct  symstr  *s_link;                /*  Next in duplicate labels */
-       unsigned        s_type  :  3;           /*  Symbol type  */
-       unsigned        s_newsym:  1;           /*  A new symbol  */
-       unsigned        s_invent:  1;           /*  Invented symbol  */
-       unsigned        s_glob  :  1;           /*  Global symbol  */
-       long            s_value;                /*  Value if defined  */
-       short           s_defs;                 /*  Defined count  */
-       short           s_used;                 /*  Used count  */
-       unsigned short  s_lsymb;                /*  Local symbol  */
-       char            s_name[1];              /*  Chars of name null term */
-};
-
-typedef        struct  symstr  *symbol;
-
-symbol symbhash[HASHMOD];
-
-typedef        struct  {
-       int     ef_t;                   /*  Text file fd  */
-       int     ef_d;                   /* Data file fd  */
-       long    ef_entry;               /*  Entry point  */
-       long    ef_tsize;               /*  Text size  */
-       long    ef_dsize;               /*  Data size  */
-       long    ef_bsize;               /*  Bss size  */
-       long    ef_end;                 /*  End of it all  */
-       long    ef_tbase;               /*  Text base  */
-       long    ef_dbase;               /*  Data base  */
-       long    ef_bbase;               /*  Bss base  */
-       int     ef_stcnt;               /*  Number of symbols  */
-       int     ef_stmax;               /*  Max number of symbols  */
-       symbol  *ef_stvec;              /*  Symbol vector  */
-}  ef_fids;
-
-typedef        ef_fids *ef_fid;
-
-/*
- *     Description of word in text file.  This entry is held in the place
- *     corresponding to the address in the text file.
- */
-
-typedef        struct  {
-       unsigned  short t_contents;             /*  Actual contents  */
-       unsigned  short t_iindex;               /*  Index in table  */
-       unsigned        t_type  :  2;           /*  Type  */
-       unsigned        t_vins  :  1;           /*  Valid instruction  */
-       unsigned        t_bdest :  1;           /*  Is branch dest  */
-       unsigned        t_gbdest:  1;           /*  Is global dest  */
-       unsigned        t_dref  :  1;           /*  Refered to in data  */
-       unsigned        t_bchtyp:  2;           /*  Branch type  */
-       unsigned        t_lng   :  3;           /*  Length in words  */
-       unsigned        t_reloc :  2;           /*  Relocatable  */
-       unsigned        t_rptr  :  2;           /*  Where relocated  */
-       unsigned        t_rdisp :  1;           /*  Relocatable displacement */
-       unsigned        t_isrel :  1;           /*  Relocated  */
-       unsigned        t_amap  :  1;           /*  Worked out  */
-       symbol          t_relsymb;              /*  Relocation symbol  */
-       long            t_reldisp;              *  Offset + or - from symb */
-       symbol          t_lab;                  /*  Label  */
-       unsigned  short t_lsymb;                /*  Local symbol  */
-       long            t_reflo;                /*  Lowest place referred  */
-       long            t_refhi;                /*  Highest place referred  */
-       unsigned  short t_match;                /*  Lib match lng  */
-}  t_entry;
-
-/*
- *     Types ......
- */
-
-#define        T_UNKNOWN       0
-#define        T_BEGIN         1
-#define        T_CONT          2
-
-#define        R_NONE          0               /*  No relocation  */
-#define        R_BYTE          1               /*  Byte relocation  */
-#define        R_WORD          2               /*  Word relocation  */
-#define        R_LONG          3               /*  Long relocation  */
-
-/*
- *     Branch types.
- */
-
-#define        T_NOBR          0
-#define        T_CONDBR        1
-#define        T_UNBR          2
-#define        T_JSR           3
-
-typedef        struct  {
-       unsigned  char  d_contents;             /*  Actual contents  */
-       unsigned        d_type  :  4;           /*  Data type  */
-       unsigned        d_reloc :  2;           /*  Relocatable  */
-       unsigned        d_rptr  :  2;           /*  Where relocated  */
-       short           d_lng;                  /*  Length -ve for D_CONT */
-       symbol          d_relsymb;              /*  Relocation symbol  */
-       long            d_reldisp;              /*  Offset + or - from symb */
-       symbol          d_lab;                  /*  Label  */
-}  d_entry;
-
-/*
- *     Data types.
- */
-
-#define        D_ASC           0               /*  Ascii chars  */
-#define        D_ASCZ          1               /*  Null-term ascii  */
-#define        D_BYTE          2               /*  Decimal bytes  */
-#define        D_WORD          3               /*  Words  */
-#define        D_LONG          4               /*  Longs  */
-#define        D_ADDR         5               /*  Address pointer  */
-#define        D_CONT          6               /*  Continuation of last  */
-
-/*
- *     'Common' items.
- */
-
-struct commit  {
-       symbol  *c_symb;                /*  List of symbols  */
-       int     c_int;                  /*  Current number  */
-       int     c_max;                  /*  Maximum  */
-};
-
-/*
- *     Library file description.
- */
-
-struct libit   {
-       int     lf_fd;                  /*  File descriptor  */
-       long    lf_offset;              /*  Offset of current file  */
-       long    lf_next;                /*  Offset of next file  */
-       char    lf_name[14];            /*  Name of item  */
-};
//GO.SYSIN DD unc.h
echo alloc.c 1>&2
sed 's/.//' >alloc.c <<'//GO.SYSIN DD alloc.c'
-/*
- *     SCCS:   @(#)alloc.c     1.2     11/2/84 14:17:20
- *     Allocate space etc.
- *
- ***********************************************************************
- *     This software is copyright of
- *
- *             John M Collins
- *             47 Cedarwood Drive
- *             St Albans
- *             Herts, AL4 0DN
- *             England                 [phone]
- *
- *     and is released into the public domain on the following conditions:
- *
- *             1.  No free maintenance will be guaranteed.
- *             2.  Nothing may be based on this software without
- *                 acknowledgement, including incorporation of this
- *                 notice.
- *
- *     Notwithstanding the above, the author welcomes correspondence and bug
- *     fixes.
- ***********************************************************************
- */
-
-#include <stdio.h>
-#include <a.out.h>
-#include <setjmp.h>
-#include "unc.h"
-
-#define        STINC   10
-
-char   *malloc(), *realloc();
-char   *strncpy();
-void   gette(), getde(), setde(), putte(), putde();
-void   unimpl();
-long   gettw();
-
-ef_fids        mainfile;
-
-/*
- *     Oops! out of memory.....
- */
-
void   nomem()
-{
-       (void) fprintf(stderr, "Sorry - run out of memory\n");
-       exit(255);
-}
-
-/*
- *     Look up hash value of symbol.
- */
-
-unsigned  shash(str)
-register  char *str;
-{
-       register  unsigned  result = 0;
-       register  int   cnt = 0;
-
-       while  (*str  &&  cnt < MAXCHARS)  {
-               result += *str++;
-               cnt++;
-       }
-       return  result % HASHMOD;
-}
-
-/*
- *     Look up hash value of symbol, possibly allocating a new symbol.
- */
-
-symbol lookup(str)
-char   *str;
-{
-       register  symbol  res, *pp;
-       register  int   len;
-
-       pp = &symbhash[shash(str)];
-       res = *pp;
-       while  (res != NULL)  {
-               if  (strncmp(res->s_name, str, MAXCHARS) == 0)
-                       return  res;
-               pp = &res->s_next;
-               res = *pp;
-       }
-       for  (len = 0;  len < MAXCHARS;  len++)
-               if  (str[len] == '\0')
-                       break;
-       len++;
-       res = (symbol) malloc(sizeof(struct symstr) + len);
-       if  (res == NULL)
-               nomem();
-       *pp = res;
-       res->s_next = NULL;
-       (void) strncpy(res->s_name, str, len);
-       res->s_name[len] = '\0';                /*  Null-terminate  */
-       res->s_newsym = 1;
-       res->s_glob = 0;
-       res->s_invent = 0;
-       res->s_link = NULL;
-       res->s_used = 0;
-       res->s_defs = 0;
-       res->s_lsymb = 0;
-       return  res;
-}
-
-/*
- *     Invent a symbol, making sure that we don't know it.
- */
-
-symbol inventsymb(prefix)
-char   *prefix;
-{
-       static  int  nsymb = 0;
-       char    schars[10];
-       register  symbol  res;
-
-       do      (void) sprintf(schars, "%s%d", prefix, ++nsymb);
-       while  (!(res = lookup(schars))->s_newsym);
-
-       res->s_newsym = 0;
-       res->s_invent = 1;
-       return  res;
-}
-
-/*
- *     Reallocate symboltable.
- */
-
-void   reallst(outf)
-register  ef_fid  outf;
-{
-       outf->ef_stmax += STINC;
-       if  (outf->ef_stvec == NULL)
-               outf->ef_stvec = (symbol *) malloc(outf->ef_stmax * sizeof(symbol));
-       else
-               outf->ef_stvec = (symbol *) realloc(outf->ef_stvec,
-                                       outf->ef_stmax * sizeof(symbol));
-       if  (outf->ef_stvec == NULL)
-               nomem();
-}
-
-/*
- *     Search through existing symbol table for symbol with given
- *     value.  Invent a new one if needed.
- */
-
-symbol getnsymb(fid, seg, pos)
-register  ef_fid  fid;
-unsigned  seg;
-long   pos;
-{
-       register  int   i;
-       register  symbol  res;
-
-       /***********  MACHINE DEPENDENT  ******************************
-        *      Convert relocation segment type (argument) to symbol type
-        *      (as remembered in symbol table).  Don't ask me why they
-        *      have to be different.....
-        */
-
-       seg += TEXT - RTEXT;
-
-       /*
-        *      See if the reference is to an external symbol.
-        *      If so, use that.
-        */
-
-       for  (i = 0;  i < fid->ef_stcnt;  i++)  {
-               res = fid->ef_stvec[i];
-               if  (res->s_type == seg  &&  res->s_value == pos)
-                       return  res;
-       }
-
-       /*
-        *      Invent a symbol and use that.
-        */
-
-       res = inventsymb("RS");
-       if  (fid->ef_stcnt >= fid->ef_stmax)
-               reallst(fid);
-       fid->ef_stvec[fid->ef_stcnt++] = res;
-       res->s_type = seg;
-       res->s_value = pos;
-       if  (seg == TEXT)  {
-               t_entry tent;
-               gette(fid, pos, &tent);
-               tent.t_bdest = 1;
-               tent.t_lab = res;
-               putte(fid, pos, &tent);
-       }
-       else  if  (seg == DATA  ||  seg == BSS)  {
-               d_entry dent;
-               getd(fid, pos, &dent);
-               dent.d_lab = res;
-               putde(fid, pos, &dent);
-       }
-
-       return  res;
-}
-
-/*
- *     Assuming address given is in text segment, find its label, or invent
- *     one.  Also set where refered from.
- */
-
-symbol textlab(loc, refpos)
-long   loc, refpos;
-{
-       t_entry tent;
-
-       gette(&mainfile, loc, &tent);
-       if  (tent.t_type == T_CONT)
-               return  NULL;
-       if  (tent.t_lab == NULL)  {
-               tent.t_lab = inventsymb("TS");
-               tent.t_lab->s_type = TEXT;
-               tent.t_lab->s_value = loc;
-               tent.t_bdest = 1;
-               putte(&mainfile, loc, &tent);
-       }
-       else
-               tent.t_lab->s_used++;
-       if  (tent.t_refhi < refpos)  {
-               tent.t_refhi = refpos;
-               putte(&mainfile, loc, &tent);
-       }
-       if  (tent.t_reflo > refpos)  {
-               tent.t_reflo = refpos;
-               putte(&mainfile, loc, &tent);
-       }
-       return  tent.t_lab;
-}
-
-/*
- *     Note references to data.
- */
-
-void   mkdref(tpos, size)
-long   tpos;
-unsigned  size;
-{
-       t_entry tent;
-       d_entry dent;
-       register  symbol  ds;
-       int     dchng = 0;
-       int     wsize;
-       long    dpos;
-
-       gette(&mainfile, tpos, &tent);
-       if  (tent.t_relsymb != NULL)
-               return;
-
-       dpos = gettw(&mainfile, tpos, R_LONG);
-       if  (dpos < mainfile.ef_dbase  ||  dpos > mainfile.ef_end)
-               return;
-
-       switch  (size)  {
-       default:
-               wsize = D_BYTE;
-               break;
-       case  2:
-               wsize = D_WORD;
-               break;
-       case  4:
-               wsize = D_LONG;
-               break;
-       }
-
-       getde(&mainfile, dpos, &dent);
-       if  ((ds = dent.d_lab) == NULL)  {
-               if  (dpos >= mainfile.ef_bbase)
-                       ds = inventsymb("BS");
-                       ds->s_type = BSS;
-               }
-               else  {
-                       ds = inventsymb("DS");
-                       ds->s_type = DATA;
-               }
-               ds->s_value = dpos;
-               dent.d_lab = ds;
-               dchng++;
-       }
-       else
-               ds->s_used++;
-
-       if  (dent.d_type != D_BYTE)  {
-               if  (dent.d_type != wsize)  {
-                       if  (dent.d_type == D_ADDR)  {
-                               if  (wsize != D_LONG)
-                                       unimpl("Addr word usage");
-                       }
-                       else  if  (dent.d_type > wsize)  {
-                               dchng++;
-                               dent.d_type = wsize;
-                               dent.d_lng = size;
-                       }
-               }
-       }
-       else  {
-               dent.d_type = wsize;
-               dent.d_lng = size;
-               dchng++;
-       }
-       if  (dchng)  {
-               putde(&mainfile, dpos, &dent);
-               for  (dchng = 1;  dchng < size; dchng++)
-                       setde(&mainfile, dpos+dchng, D_CONT, 1);
-       }
-
-       tent.t_relsymb = ds;
-       putte(&mainfile, tpos, &tent);
-}
-
-/*
- *     Add item to common or abs list.
- */
-
-#define        COMINC  10
-
-void   addit(cp, symb)
-register  struct  commit  *cp;
-symbol symb;
-{
-       if  (cp->c_int >= cp->c_max)  {
-               cp->c_max += COMINC;
-               if  (cp->c_symb == NULL)
-                       cp->c_symb = (symbol *) malloc(COMINC*sizeof(symbol));
-               else
-                       cp->c_symb = (symbol *)
-                                       realloc(cp->c_symb,
-                                               cp->c_max * sizeof(symbol));
-               if  (cp->c_symb == NULL)
-                       nomem();
-      }
-       cp->c_symb[cp->c_int++] = symb;
-}
//GO.SYSIN DD alloc.c
echo file.c 1>&2
sed 's/.//' >file.c <<'//GO.SYSIN DD file.c'
-/*
- *     SCCS:   @(#)file.c      1.2     11/2/84 14:17:35
- *     Various operations on files.
- *
- ***********************************************************************
- *     This software is copyright of
- *
- *             John M Collins
- *             47 Cedarwood Drive
- *             St Albans
- *             Herts, AL4 0DN
- *             England                 [phone]
- *
- *     and is released into the public domain on the following conditions:
- *
- *             1.  No free maintenance will be guaranteed.
- *             2.  Nothing may be based on this software without
- *                 acknowledgement, including incorporation of this
- *                 notice.
- *
- *     Notwithstanding the above, the author welcomes correspondence and bug
- *     fixes.
- ***********************************************************************
- */
-
-#include <stdio.h>
-#include <a.out.h>
-#include "unc.h"
-
-long   lseek();
-void   unimpl();
-
-/*
- *     Validate addr and get text entry corresponding to it from the given
- *     file.
- */
-
-void   gette(fid, addr, te)
-register  ef_fid  fid;
-register  long addr;
-t_entry        *te;
-{
-       addr -= fid->ef_tbase;
-       if  (addr < 0  ||  addr > fid->ef_tsize  || (addr & 1) != 0)  {
-               (void) fprintf(stderr, "Invalid text address %lx\n", addr);
-               exit(200);
-       }
-       (void) lseek(fid->ef_t, (long)(addr * sizeof(t_entry)/2), 0);
-       if  (read(fid->ef_t, (char *) te, sizeof(t_entry)) != sizeof(t_entry))  {
-               (void) fprintf(stderr, "Trouble reading text at %lx\n", addr);
-               exit(201);
-       }
-}
-
-/*
- *     Store a text entry.
- */
-
-void   putte(fid, addr, te)
-register  ef_fid  fid;
-register  long addr;
-t_entry        *te;
-{
-       addr -= fid->ef_tbase;
-      if  (addr < 0  ||  addr > fid->ef_tsize  ||  (addr & 1) != 0)  {
-               (void) fprintf(stderr, "Invalid text address %lx\n", addr);
-               exit(200);
-       }
-       (void) lseek(fid->ef_t, (long)(addr * sizeof(t_entry)/2), 0);
-       (void) write(fid->ef_t, (char *) te, sizeof(t_entry));
-}
-
-/*
- *     Validate addr and get data entry corresponding to it from the given
- *     file.
- */
-
-void   getde(fid, addr, de)
-register  ef_fid  fid;
-register  long addr;
-d_entry        *de;
-{
-       if  (addr < fid->ef_dbase  ||  addr > fid->ef_end)  {
-               (void) fprintf(stderr, "Invalid data address %lx\n", addr);
-               exit(200);
-       }
-       addr -= fid->ef_dbase;
-       (void) lseek(fid->ef_d, (long)(addr * sizeof(d_entry)), 0);
-       if  (read(fid->ef_d, (char *) de, sizeof(d_entry)) != sizeof(d_entry))  {
-               (void) fprintf(stderr, "Trouble reading data at %lx\n", addr);
-               exit(201);
-       }
-}
-
-/*
- *     Store a data entry.
- */
-
-void   putde(fid, addr, de)
-register  ef_fid  fid;
-register  long addr;
-d_entry        *de;
-{
-       if  (addr < fid->ef_dbase  ||  addr > fid->ef_end)  {
-               (void) fprintf(stderr, "Invalid data address %lx\n", addr);
-               exit(200);
-       }
-       addr -= fid->ef_dbase;
-       (void) lseek(fid->ef_d, (long)(addr * sizeof(d_entry)), 0);
-       (void) write(fid->ef_d, (char *) de, sizeof(d_entry));
-}
-
-/*
- *     Set type and length of given data entry.
- */
-
-void   setde(fid, addr, type, lng)
-ef_fid fid;
-long   addr;
-unsigned  type;
-int    lng;
-{
-       d_entry dat;
-
-       if  (addr > fid->ef_end)
-               return;
-       getde(fid, addr, &dat);
-       if  (type == D_CONT  &&  dat.d_reloc != R_NONE)  {
-               char    obuf[30];
-               (void) sprintf(obuf, "overlapped reloc 0x%x", addr);
-               unimpl(obuf);
-       }
-       dat.d_type = type;
-       at.d_lng = lng;
-       putde(fid, addr, &dat);
-}
-
-/*
- *     Get a word of data file, size as requested.
- */
-
-long   getdw(fid, pos, size)
-register  ef_fid  fid;
-long   pos;
-int    size;
-{
-       d_entry dat;
-       register  long  res;
-       register  int   i, lt;
-
-       getde(fid, pos, &dat);
-
-       switch  (size)  {
-       case  R_BYTE:
-               return  dat.d_contents;
-
-       case  R_LONG:
-               lt = 4;
-               goto  rest;
-
-       case  R_WORD:
-               lt = 2;
-       rest:
-               res = dat.d_contents;
-               for  (i = 1;  i < lt; i++)  {
-                       getde(fid, pos+i, &dat);
-                       res = (res << 8) + dat.d_contents;
-               }
-               return  res;
-
-       default:
-               (void) fprintf(stderr, "Data word size error\n");
-               exit(20);
-       }
-       /*NOTREACHED*/
-}
-
-/*
- *     Get a word of text file.
- */
-
-long   gettw(fid, pos, size)
-register  ef_fid  fid;
-long   pos;
-int    size;
-{
-       t_entry tex;
-       long    res;
-
-       gette(fid, pos, &tex);
-
-       switch  (size)  {
-       case  R_BYTE:
-               return  tex.t_contents >> 8;
-
-       case  R_WORD:
-               return  tex.t_contents;
-
-       case  R_LONG:
-               res = tex.t_contents;
-               gette(fid, pos+2, &tex);
-               return  (res << 16) + tex.t_contents;
-       default:
-               (void) fprintf(stderr, "Text word size error\n");
-               exit(20);
-       }
-       /*NOTREACHED*/
-}
//GO.SYSIN DD file.c
echo heur.c 1>&2
sed 's/.//' >heur.c <<'//GO.SYSIN DD heur.c'
-/*
- *     SCCS:   @(#)heur.c      1.2     11/2/84 14:17:46
- *     Attempt to guess things about the file.
- *
- **********************************************************************
- *     This software is copyright of
- *
- *             John M Collins
- *             47 Cedarwood Drive
- *             St Albans
- *             Herts, AL4 0DN
- *             England                 [phone]
- *
- *     and is released into the public domain on the following conditions:
- *
- *             1.  No free maintenance will be guaranteed.
- *             2.  Nothing may be based on this software without
- *                 acknowledgement, including incorporation of this
- *                 notice.
- *
- *     Notwithstanding the above, the author welcomes correspondence and bug
- *     fixes.
- ***********************************************************************
- */
-
-#include <stdio.h>
-#include <a.out.h>
-#include "unc.h"
-
-#define        INITDAT 256
-#define        INCDAT  128
-
-#define        STRSCNT 3
-#define        STRECNT 3
-
-char   *malloc(), *realloc();
-
-void   gette(), getde(), setde(), putte(), putde();
-void   nomem();
-long   getdw();
-symbol inventsymb();
-
-long   endt;
-ef_fids        mainfile;
-
-/*
- *     Talk about implemented things.....
- */
-
-void   unimpl(msg)
-char   *msg;
-{
-       (void) fprintf(stderr, "Warning: handling of \"%s\" not implemented\n", msg);
-}
-
-/*
- *     Return 1 if string char, otherwise 0.
- */
-
-int    possstr(x)
-unsigned  x;
-{
-       if  (x >= ' '  &&  x <= '~')
-               return  1;
-       if  (x == '\n'  ||  x == '\t')
-               return  1;
-       return  0;
-}
-
-/*
- *     Guess things about data files.
- */
-
-void   intudat(fid)
-ef_fid  fid;
-{
-       register  int   i, j;
-       int     lt, input, invcnt;
-       long    offs, soffs, endd;
-       d_entry fdat;
-       unsigned  char  *inbuf;
-       int     ibsize;
-
-       inbuf = (unsigned  char *)malloc(INITDAT);
-       if  (inbuf == NULL)
-               nomem();
-       ibsize = INITDAT;
-
-       offs = fid->ef_dbase;
-       endd = fid->e_bbase;
-
-       while  (offs < endd)  {
-               getde(fid, offs, &fdat);
-               if  (fdat.d_type != D_BYTE)  {
-                       offs += fdat.d_lng;
-                       continue;
-               }
-
-               /*
-                *      Looks like general data.  Read in as much as possible.
-                */
-
-               input = 0;
-               soffs = offs;
-               do  {
-                       if  (input >= ibsize)  {
-                               ibsize += INCDAT;
-                               inbuf = (unsigned  char *)
-                                       realloc((char *)inbuf, (unsigned)ibsize);
-                               if  (inbuf == NULL)
-                                       nomem();
-                       }
-                       inbuf[input++] = fdat.d_contents;
-                       offs++;
-                       if  (offs >= endd)
-                               break;
-                       getde(fid, offs, &fdat);
-               }  while  (fdat.d_type == D_BYTE && fdat.d_lab == NULL);
-
-               /*
-                *      Now split up the data.
-                */
-
-               for  (i = 0;  i < input;  )  {
-
-                       /*
-                        *      Might be a string.
-                        */
-
-                       if  (possstr(inbuf[i]))  {
-                               lt = input;
-                               if  (i + STRSCNT < lt)
-                                       lt = i + STRSCNT;
-                               for  (j = i + 1;  j < lt;  j++)  {
-                                       if  (inbuf[j] == '\0')
-                                               break;
-                                       if  (!possstr(inbuf[j]))
-                                               goto  notstr;
-                               }
-
-                               /*
-                                *      Looks like a string then.
-                                */
-
-                               invcnt = 0;
-                               for  (j = i + 1; j < input;  j++)  {
-                                       if  (inbuf[j] == '\0')  {
-                                               j++;
-                                               break;
-                                       }
-                                       if  (possstr(inbuf[j]))
-                                               invcnt = 0;
-                                       else  {
-                                               invcnt++;
-                                               if  (invcnt >= STRECNT)  {
-                                                       j -= invcnt - 1;
-                                                       break;
-                                               }
-                                       }
-                               }
-
-                               setde(fid,
-                                     soffs+i,
-                                     (unsigned)(inbuf[j-1]=='\0'?D_ASCZ:D_ASC),-                                     j - i);
-                               for  (i++;  i < j;  i++)
-                                       setde(fid, soffs+i, D_CONT, 1);
-                               continue;
-                       }
-
-notstr:
-                       /*
-                        *      If on odd boundary, treat as a byte.
-                        */
-
-                       if  ((soffs + i) & 1  ||  i + 1 >= input)  {
-                               setde(fid, soffs + i, D_BYTE, 1);
-                               i++;
-                               continue;
-                       }
-
-                       /*
-                        *      Treat as longs unless not enough.-                        */
-
-                       if  (i + 3 >= input)  {
-                               setde(fid, soffs + i, D_WORD, 2);
-                               setde(fid, soffs + i + 1, D_CONT, -1);
-                               i += 2;
-                               continue;
-                       }
-
-                       /*
-                        *      Treat as a long but mark changable.
-                        */
-
-                       setde(fid, soffs + i, D_LONG, 4);
-                       for  (j = 1;  j < 4;  j++)
-                               setde(fid, soffs + i + j, D_CONT, -j);
-                       i += 4;
-               }
-       }
-       free((char *)inbuf);
-
-       /*
-        *      Now zap bss segment.
-        */
-
-       offs = fid->ef_bbase;
-       endd = fid->ef_end;
-
-       while  (offs < endd)  {
-               getde(fid, offs, &fdat);
-               if  (fdat.d_type != D_BYTE)  {
-                       offs += fdat.d_lng;
-                       continue;
-               }
-
-               soffs = offs;
-               do  {
-                       offs++;
-                       if  (offs >= endd)
-                               break;
-                       getde(fid, offs, &fdat);
-               }  while  (fdat.d_type == D_BYTE && fdat.d_lab == NULL);
-
-               setde(fid, soffs, D_BYTE, (int)(offs-soffs));
-               for  (i = -1, soffs++;  soffs < offs; i--, soffs++)
-                       setde(fid, soffs, D_CONT, i);
-       }
-}
-
-/*
- *     For non relocatable files, try to identify address pointers in
- *     the data.
- */
-
-void   inturdat(fid)
-ef_fid fid;
-{
-       register  long  offs = fid->ef_dbase;
-       register  int   i;
-       register  symbol  ds;
-       long  endd = fid->ef_bbase;
-       long  cont;
-       d_entry dent, refdent;
-
-       while  (offs < endd) {
-               getde(fid, offs, &dent);
-               if  (dent.d_type != D_LONG)
-                       goto  endit;
-               cont = getdw(fid, offs, R_LONG);
-               if  (cont < fid->ef_dbase || cont > fid->ef_end)
-                       goto  endit;
-               getde(fid, cont, &refdent);
-               if  (refdent.d_type == D_CONT)  {
-                       d_entry pdent;
-                       int     siz;
-
-                       if  (refdent.d_lng >= 0)
-                               goto  endit;
-                       getde(fid, cont+refdent.d_lng, &pdent);
-                       i = -refdent.d_lng;
-                       refdent.d_lng += pdent.d_lng;
-                       pdent.d_lng = i;
-                       if  (pdent.d_type == D_LONG  &&  i == 2)
-                               siz = D_WORD;
-                       else
-                               siz = D_BYTE;
-                       refdent.d_type = siz;
-                       pdent.d_type = siz;
-                       putde(fid, cont - i, &pdent);
-                       for  (i = 1;  i < refdent.d_lng;  i++)
-                               setde(fid, cont+i, D_CONT, -i);
-               }
-               if  ((ds = refdent.d_lab) == NULL)  {
-                       if  (cont >= fid->ef_bbase)  {
-                               ds = inventsymb("BS");
-                               ds->s_type = BSS;
-                       }
-                       else  {
-                               ds = inventsymb("DS");
-                               ds->s_type = DATA;
-                       }
-                       ds->s_value = cont;
-                       refdent.d_lab = ds;
-                       putde(fid, cont, &refdent);
-               }
-               else
-                       ds->s_used++;
-               dent.d_type = D_ADDR;
-               dent.d_relsymb = ds;
-               dent.d_rptr = ds->s_type;
-               putdefid, offs, &dent);
-               for  (i = 1;  i < 4;  i++)
-                       setde(fid, offs+i, D_CONT, 1);
-endit:
-               offs += dent.d_lng;
-       }
-}
-
-/*
- *     Recursively follow through the code, stopping at unconditional
- *     branches and invalid instructions.
- */
-
-void   follseq(pos)
-long   pos;
-{
-       t_entry tent;
-       int     lng;
-       long    npos;
-
-       while  (pos < endt)  {
-               gette(&mainfile, pos, &tent);
-               if  (tent.t_amap)       /*  Been here  */
-                       return;
-               tent.t_amap = 1;
-               lng = findinst(&tent, pos);
-               npos = pos + lng*2;
-               if  (npos > endt)  {
-                       tent.t_vins = 0;
-                       tent.t_lng = 1;
-                       tent.t_type = T_UNKNOWN;
-                       lng = 0;
-                       npos = endt;
-               }
-               putte(&mainfile, pos, &tent);
-               pos = npos;
-
-               if  (lng <= 0)
-                       return;
-
-               switch  (tent.t_bchtyp)  {
-               case  T_UNBR:
-                       if  (tent.t_relsymb == NULL)
-                               return;
-                       pos = tent.t_relsymb->s_value;
-                       continue;
-               case  T_JSR:
-                       if  (tent.t_relsymb != NULL)
-                               follseq(tent.t_relsymb->s_value);
-                       continue;
-               case  T_CONDBR:
-                       follseq(tent.t_relsymb->s_value);
-               default:
-                       continue;
-               }
-       }
-}
-
-
-/*
- *     Try to work out things about text files.
- */
-
-void   intutext()
-{
-       long    pos;
-       t_entry tent;
-       int     lng;
-
-       endt = mainfile.ef_tbase + mainfile.ef_tsize;
-      pos = mainfile.ef_entry;
-nextv:
-       for  (;  pos < endt;)  {
-               gette(&mainfile, pos, &tent);
-               if  (!tent.t_amap && tent.t_vins)  {
-                       follseq(pos);
-                       pos += 2;
-                       goto  nextiv;
-               }
-               pos += tent.t_lng * 2;
-               if  (tent.t_bchtyp == T_UNBR)
-                       goto  nextiv;
-       }
-       goto    dorest;
-nextiv:
-       for  (;  pos < endt;  pos += 2)  {
-               gette(&mainfile, pos, &tent);
-               if  (tent.t_bdest)
-                       goto  nextv;
-       }
-dorest:
-       /*
-        *      Deal with unmapped instructions.
-        */
-
-       for  (pos = 0;  pos < endt;)  {
-               gette(&mainfile, pos, &tent);
-               switch  (tent.t_type)  {
-               case  T_BEGIN:
-                       pos += tent.t_lng * 2;
-                       continue;
-               case  T_UNKNOWN:
-                       if  (tent.t_vins)  {
-                               lng = findinst(&tent, pos);
-                               putte(&mainfile, pos, &tent);
-                               if  (lng > 0)  {
-                                       pos += lng * 2;
-                                       continue;
-                               }
-                       }
-               default:
-                       pos += 2;
-                       continue;
-               }
-       }
-}
-
-/*
- *     Invent local symbols.
- */
-
-void   intlsym()
-{
-       long    bpos, epos, hiref, hipos;
-       unsigned  llnum;
-       t_entry tent;
-       register  symbol  tl;
-
-       endt = mainfile.ef_tbase + mainfile.ef_tsize;
-       epos = mainfile.ef_entry;
-       for  (;;)  {
-               bpos = epos;
-               hiref = bpos;
-               if  (epos >= endt)
-                       return;
-               gette(&mainfile, epos, &tent);
-              epos += tent.t_lng * 2;
-               for  (;  epos < endt;)  {
-                       gette(&mainfile, epos, &tent);
-                       if  (tent.t_gbdest  ||  tent.t_dref)
-                               break;
-                       if  (tent.t_reflo < bpos)
-                               break;
-                       if  (tent.t_refhi > hiref)  {
-                               hiref = tent.t_refhi;
-                               hipos = epos;
-                       }
-                       epos += tent.t_lng * 2;
-               }
-               if  (hiref > epos)
-                       epos = hipos;
-               llnum = 0;
-               for  (hipos = bpos;  hipos < epos;)  {
-                       gette(&mainfile, hipos, &tent);
-                       if  (!tent.t_gbdest && !tent.t_dref &&
-                        tent.t_reflo >= bpos && tent.t_refhi < epos &&
-                        (tl = tent.t_lab) != NULL)
-                               tl->s_lsymb = ++llnum;
-                       hipos += tent.t_lng * 2;
-               }
-       }
-}
-
-/*
- *     Given the main file, a possible candidate for matching in the
- *     file and an offset, see if text matches.  Return 1 if matches,
- *     or 0 if no match.
- */
-
-int    matchup(mf, lf, startpos)
-register  ef_fid  mf, lf;
-long   startpos;
-{
-       register  int   i, matches = 0;
-       t_entry ltent, mtent;
-
-       if  (lf->ef_tsize > mf->ef_tsize - startpos + mf->ef_tbase)
-               return  0;      /*  At end - can't fit  */
-
-       for  (i = 0;  i < lf->ef_tsize;  i += 2)  {
-               gette(lf, lf->ef_tbase + i, <ent);
-               if  (ltent.t_isrel)
-                       continue;
-               gette(mf, startpos + i, &mtent);
-               if  (mtent.t_contents != ltent.t_contents)
-                       return  0;
-               matches++;
-       }
-
-       /*
-        *      Give up on zero length or all relocatable fils.
-        */
-
-       return  matches > 0;
-}
-
-/*
- *     Scan through main file looking for a match.
- */
-
-long   findstart(mf, lf)
-register  ef_fid  mf, lf;
-{
-       register  long  res = mf->ef_tbase;
-       long    lim = mf->ef_tbase + mf->ef_tsize - lf->ef_tsize;
-       t_entry tent;
-
-restart:
-       for  (;  res <= lim;  res += 2)  {
-               gette(mf, res, &tent);
-               if  (tent.t_match != 0)  {
-                       res += tent.t_match;
-                       goto  restart;
-               }
-               if  (matchup(mf, lf, res))
-                       return  res;
-       }
-       return  -1;
-}
-
-/*
- *     Mark the head of a matched module to save searching.
- */
-
-void   markmatch(mf, lf, pos)
-ef_fid mf, lf;
-long   pos;
-{
-       t_entry tent;
-
-       gette(mf, pos, &tent);
-       tent.t_match = (unsigned) lf->ef_tsize;
-       putte(mf, pos, &tent);
-}
//GO.SYSIN DD heur.c
echo iset.c 1>&2
sed 's/.//' >iset.c <<'//GO.SYSIN DD iset.c'
-/*
- *     SCCS:   @(#)iset.c      1.2     11/2/84 14:18:23
- *     Decode instructions.
- *
- ***********************************************************************
- *     This software is copyright of
- *
- *             John M Collins
- *             47 Cedarwood Drive
- *             St Albans
- *             Herts, AL4 0DN
- *             England                 [phone]
- *
- *     and is released into the public domain on the following conditions:
- *
- *             1.  No free maintenance will be guaranteed.
- *             2.  Nothing may be based on this software without
- *                 acknowledgement, including incorporation of this
- *                 notice.
- *
- *     Notwithstanding the above, the author welcomes correspondence and bug
- *     fixes.
- ***********************************************************************
- */
-
-#include <stdio.h>
-#include <a.out.h>
-#include "unc.h"
-
-ef_fids       mainfile;
-long   endt;
-
-void   gette(), putte();
-void   mkdref();
-long   gettw();
-symbol textlab();
-
-int    l1(), l2(), el1(), lea(), lmove(), lcbch(), jj();
-int    limed(), lsbit(), lmvml(), lone(), loone(), lonew(), lonel();
-
-int    pmove(), pcbch(), pdbcc(), pscc(), pcs(), pmovc(), pstop(), pexg();
-int    pimed(), pmovp(), psbit(), pdbit(), pcs2(), pone(), ppea();
-int    plea(), pdreg(), pmvml(), ptrap(), plink(), pareg(), podreg();
-int    pqu(), pmqu(), ptreg(), pcmpm(), pomode(), pmshf(), pshf();
-
-struct opstr   {
-       unsigned  short  mask;
-       unsigned  short  match;
-       int     (*opsize)();
-       int     (*opprin)();
-       char    *prarg;
-} optab[] = {
-       0xf000, 0x2000, lmove, pmove, "l",
-       0xf000, 0x3000, lmove, pmove, "w",
-       0xf000, 0x1000, lmove, pmove, "b",
-       0xf000, 0x6000, lcbch, pcbch, 0,
-       0xffbf, 0x003c, l2,    pcs,   "or",
-       0xff00, 0x0000, limed, pimed, "or",
-       0xffbf, 0x023c, l2,    pcs,   "and",
-       0xff00, 0x0200, limed, pimed, "and",
-       0xff00, 0x0400, limed, pimed, "sub",
-       0xff00, 0x0600, limed, pimed, "add",
-       0xffbf, 0x0a3c, l2,    pcs,   "eor",
-       0xff00, 0x0a00, limed, pimed, "eor",
-       0xff00, 0x0c00, limed, pimed, "cmp",
-       0xf138, 0x0108, l2,    pmovp, 0,
-       0xff00, 0x0800, lsbit, psbit, 0,
-       0xf100, 0x0100, lonew, pdbit, 0,
-       0xffc0, 0x40c0, lonew, pcs2,  "sr",
-       0xff00, 0x4000, lone,  pone,  "negx",
-       0xff00, 0x4200, lone,  pone,  "clr",
-       0xffc0, 0x44c0, lonew, pcs2,  "cc",
-       0xff00, 0x4400, lone,  pone,  "neg",
-       0xffc0, 0x46c0, lonew, pcs2,  "sr",
-       0xff00, 0x4600, lone,  pone,  "not",
-       0xffc0, 0x4800, lonew, ppea,  "nbcd",
-       0xfff8, 0x4840, l1,    pdreg, "swap",
-       0xffc0, 0x4840, lonel, ppea,  "pea",
-       0xfff8, 0x4880, l1,    pdreg, "extw",
-       0xfff8, 0x48c0, l1,    pdreg, "extl",
-       0xfb80, 0x4880, lmvml, pmvml, 0,
-       0ffc0, 0x4ac0, lonew, ppea,  "tas",
-       0xff00, 0x4a00, lone,  pone,  "tst",
-       0xfff0, 0x4e40, l1,    ptrap, 0,
-       0xfff8, 0x4e50, l2,    plink, 0,
-       0xfff8, 0x4e58, l1,    pareg, "unlk\t%s",
-       0xfff8, 0x4e60, l1,    pareg, "movl\t%s,usp",
-       0xfff8, 0x4e68, l1,    pareg, "movl\tusp,%s",
-       0xffff, 0x4e70, l1,    pareg, "reset",
-       0xffff, 0x4e71, l1,    pareg, "nop",
-       0xffff, 0x4e72, l2,    pstop, 0,
-       0xffff, 0x4e73, el1,   pareg, "rte",
-       0xffff, 0x4e75, el1,   pareg, "rts",
-       0xffff, 0x4e76, l1,    pareg, "trapv",
-       0xffff, 0x4e77, el1,   pareg, "rtr",
-       0xfffe, 0x4e7a, l2,    pmovc, 0,
-       0xffc0, 0x4e80, jj,    ppea,  "jsr",
-       0xffc0, 0x4ec0, jj,    ppea,  "jmp",
-       0xf1c0, 0x4180, lonew, podreg,"chk",
-       0xf1c0, 0x41c0, lonel, plea,  0,
-       0xf0f8, 0x50c8, lcbch, pdbcc, 0,
-       0xf0c0, 0x50c0, lonew, pscc,  0,
-       0xf100, 0x5000, lone,  pqu,   "add",
-       0xf100, 0x5100, lone,  pqu,   "sub",
-       0xf100, 0x7000, l1,    pmqu,  0,
-       0xf1c0, 0x80c0, lonew, podreg,"divu",
-       0xf1c0, 0x81c0, lonew, podreg,"divs",
-       0xf1f0, 0x8100, l1,    ptreg, "sbcd",
-       0xf000, 0x8000, loone, pomode,"or",
-       0xf1f0, 0x9100, l1,    ptreg, "subxb",
-       0xf1f0, 0x9140, l1,    ptreg, "subxw",
-       0xf1f0, 0x9180, l1,    ptreg, "subxl",
-       0xf000, 0x9000, loone, pomode,"sub",
-       0xf1f8, 0xb108, l1,    pcmpm, "cmpmb",
-       0xf1f8, 0xb148, l1,    pcmpm, "cmpmw",
-       0xf1f8, 0xb188, l1,    pcmpm, "cmpml",
-       0xf100, 0xb000, loone, pomode,"cmp",
-       0xf1c0, 0xb1c0, loone, pomode,"cmp",
-       0xf100, 0xb100, loone, pomode,"eor",
-       0xf1c0, 0xc0c0, lonew, podreg,"mulu",
-       0xf1c0, 0xc1c0, lonew, podreg,"muls",
-       0xf1f0, 0xc100, l1,    ptreg, "abcd",
-       0xf130, 0xc100, l1,    pexg,  0,
-       0xf000, 0xc000, loone, pomode,"and",
-       0xf1f0, 0xd100, l1,    ptreg, "addxb",
-       0xf1f0, 0xd140, 1,    ptreg, "addxw",
-       0xf1f0, 0xd180, l1,    ptreg, "addxl",
-       0xf000, 0xd000, loone, pomode,"add",
-       0xf8c0, 0xe0c0, lonew, pmshf,  0,
-       0xf000, 0xe000, l1,    pshf,   0,
-       0
-};
-
-char   *areg[] = { "a0", "a1", "a2", "a3", "a4", "a5", "a6", "sp"};
-char   *cclist[] = { "hi", "ls", "cc", "cs", "ne", "eq", "vc", "vs",
-                       "pl", "mi", "ge", "lt", "gt", "le"};
-
-char   *shtype[] = { "as", "ls", "rox", "ro" };
-char   *bittyp[] = { "tst", "chg", "clr", "set" };
-
-char   *creg[] = { "sfc", "dfc", "usp", "vbr" };
-
-/*
- *     Length functions.
- */
-
-int    l1()
-{
-       return  1;
-}
-
-int    l2()
-{
-       return  2;
-}
-
-int    el1(te)
-t_entry        *te;
-{
-       te->t_bchtyp = T_UNBR;
-       return  1;
-}
-
-int    lea(instr, size, pos)
-unsigned  instr, size;
-long   pos;
-{
-       switch  ((instr >> 3) & 0x7)  {
-       case  0:
-       case  1:
-       case  2:
-       case  3:
-       case  4:
-               return  1;
-       case  5:
-       case  6:
-               return  2;
-       default:
-               switch  (instr & 0x7)  {
-               case  0:
-               case  2:
-               case  3:
-                       return  2;
-               case  1:
-                       mkdref(pos, size);
-                       return  3;
-               case  4:
-                       if  (size > 2)
-                               return  3;
-                       return  2;
-               default:
-                       return  0;
-               }
-       }
-}
-
-/*
- *     Lengths of move instructions.
- */
-
-int    lmove(te, pos)
-t_entry        *te;
-long   pos;
-{
-       register  unsigned  tc  =  te->t_contents;
-       unsigned  sz  =  1;
-       int     lng, lng2;
-
-       lng  = tc & 0xf000;
-       if  (lng == 0x3000)
-               sz = 2;
-       else  if  (lng == 0x2000)
-               sz = 4;
-
-       i  ((lng = lea(tc, sz, pos+2)) <= 0)
-               return  0;
-       lng2 = lea(((tc>>3) & 0x38) | ((tc>>9) & 0x7), sz, pos+lng+lng);
-       if  (lng2 <= 0)
-               return  0;
-       return  lng + lng2 - 1;
-}
-
-/*
- *     Lengths for conditional branches and dbcc instructions.
- */
-
-int    lcbch(te, pos)
-t_entry        *te;
-long   pos;
-{
-       unsigned  tc  =  te->t_contents;
-       long    dest  =  pos + 2;
-       int     res   =  2;
-
-       if  ((tc & 0xf000) == 0x5000  ||  (tc & 0xff) == 0)
-               dest += (short)gettw(&mainfile, pos+2, R_WORD);
-       else  {
-               dest += (char) tc;
-               res = 1;
-       }
-       if  ((tc & 0xff00) == 0x6000)
-               te->t_bchtyp = T_UNBR;
-       else  if  ((tc & 0xff00) == 0x6100)
-               te->t_bchtyp = T_JSR;
-       else
-               te->t_bchtyp = T_CONDBR;
-
-       te->t_relsymb = textlab(dest, pos);
-       return  res;
-}
-
-int    jj(te, pos)
-t_entry        *te;
-long   pos;
-{
-       unsigned  tc  =  te->t_contents;
-       t_entry nextl;
-
-       te->t_bchtyp = (tc & 0x40)? T_UNBR: T_JSR;
-       if  ((tc & 0x3f) == 0x39)  {
-               gette(&mainfile, pos+2, &nextl);
-               if  (nextl.t_relsymb == NULL)  {
-                       nextl.t_relsymb = textlab(gettw(&mainfile, pos+2, R_LONG), pos);
-                       putte(&mainfile, pos+2, &nextl);
-               }
-               te->t_relsymb = nextl.t_relsymb;        /*  Easy ref  */
-       }
-       return  lea(tc, 4, pos+2);
-}
-
-int    limed(te, pos)
-t_entry        *te;
-long   pos;
-{
-       unsigned  tc  =  te->t_contents;
-       int     lng;
-
-       /*
-        *      Specifically exclude byte address register operands,
-        *      and ones which have lengths of 3.
-        */
-
-       if  ((tc & 0xf8) == 0x08)
-               return  0;
-
-       if  ((tc & 0xc0) >= 0x80)  {
-               if  (tc &0x40)
-                       return  0;
-               lng = lea(tc, 4, pos+6);
-               if  (lng > 0)
-                       lng += 2;
-       }
-       else  {
-               lng = lea(tc, (unsigned)((tc & 0xc0)?2:1), pos+4);
-               if  (lng > 0)
-                       lng++;
-       }
-       return  lng;
-}
-
-int    lsbit(te, pos)
-t_entry        *te;
-long   pos;
-{
-       int     lng = lea(te->t_contents, 1, pos+4);
-
-       if  (lng > 0)
-               lng++;
-       return  lng;
-}
-
-int    lmvml(te, pos)
-t_entry        *te;
-long   pos;
-{
-       int     lng = lea(te->t_contents,
-                       (unsigned)(te->t_contents&0x40? 4:2), pos+4);
-
-       if  (lng > 0)
-               lng++;
-       return  lng;
-}
-
-/*
- *     Length depends on bits 6 and 7 of instruction.
- */
-
-int    lone(te, pos)
-t_entry        *te;
-long   pos;
-{
-       unsigned  tc  =  te->t_contents;
-
-       return  lea(tc, 1 << ((tc >> 6) & 3), pos+2);
-}
-
-/*
- *     Length depends on bits 6-8 of instruction.
- */
-
-int    loone(te, pos)
-t_entry        *te;
-long   pos;
-{
-       unsigned  tc  =  te->t_contents;
-
-       switch  ((tc >> 6) & 7)  {
-       case  0:
-       case  4:
-               return  lea(tc, 1, pos+2);
-       case  1:
-       case  3:
-       case  5:
-               return  lea(tc, 2, pos+2);
-       case  2:
-       case  6:
-       case  7:
-               return  lea(tc, 4, pos+2);
-       }
-       /*NOTREACHED*/
-}
-
-int    lonew(te, pos)
-t_entry        *te;
-long   pos;
-{
-       return  lea(te->t_contents, 2, pos+2);
-}
-
-int    lonel(te, pos)
-t_entry        *te;
-long   pos;
-{
-       return  lea(te->t_contents, 4, pos+2);
-}
-
-/*
- *     Print routines.
- */
-
-int    findleng(tc)
-unsigned  tc;
-{
-       switch  ((tc >> 6) & 3)  {
-       case  0:
-               return  'b';
-       case  1:
-               return  'w;
-       default:
-               return  'l';
-       }
-}
-
-void   piword(disp)
-unsigned  disp;
-{
-       int     szc;
-
-       (void) printf("@(0x%x,", disp & 0xff);
-       if  (disp & 0x8000)
-               (void) printf("%s", areg[(disp >> 12) & 0x7]);
-       else
-               (void) printf("d%d", (disp >> 12) & 0x7);
-       szc = 'w';
-       if  (disp & (1 << 10))
-               szc = 'l';
-       (void) printf(":%c)", szc);
-}
-
-void   paddr(pos)
-long   pos;
-{
-       t_entry tent;
-       symbol  symb;
-
-       gette(&mainfile, pos, &tent);
-       if  (tent.t_relsymb != NULL)  {
-               symb = tent.t_relsymb;
-               if  (symb->s_lsymb != 0)
-                       (void) printf("%u$", symb->s_lsymb);
-               else
-                       (void) printf("%s", symb->s_name);
-               if  (tent.t_reldisp != 0)
-                       (void) printf("+0x%x", tent.t_reldisp);
-               return;
-       }
-       (void) printf("0x%x", gettw(&mainfile, pos, R_LONG));
-}
-
-int    prea(ea, pos, sz)
-unsigned  ea, sz;
-long   pos;                    /*  Address of previous word to extn  */
-{
-       unsigned  reg  =  ea & 0x7;
-       long    disp;
-
-       pos += 2;
-
-       switch  ((ea >> 3) & 0x7)  {
-       case  0:
-               (void) printf("d%d", reg);
-               return  0;
-       case  1:
-               (void) printf("%s", areg[reg]);
-               return  0;
-       case  2:
-               (void) printf("%s@", areg[reg]);
-               return  0;
-       case  3:
-               (void) printf("%s@+", areg[reg]);
-               return  0;
-       case  4:
-               (void) printf("%s@-", areg[reg]);
-               return  0;
-       case  5:
-               disp = gettw(&mainfile, pos, R_WORD);
-               (void) printf("%s@(0x%x)", areg[reg], disp);
-               return  2;
-       case  6:
-               (void) printf("%s, areg[reg]);
-               piword((unsigned) gettw(&mainfile, pos, R_WORD));
-               return  2;
-       default:
-               switch  (reg)  {
-               case  0:
-                       disp = gettw(&mainfile, pos, R_WORD);
-                       (void) printf("0x%x:w", disp);
-                       return  2;
-               case  1:
-                       paddr(pos);
-                       return  4;
-               case  2:
-                       disp = gettw(&mainfile, pos, R_WORD);
-                       (void) printf("pc@(0x%x)", disp);
-                       return  2;
-               case  3:
-                       (void) printf("pc");
-                       piword((unsigned) gettw(&mainfile, pos, R_WORD));
-                       return  2;
-               case  4:
-                       (void) printf("#");
-                       if  (sz < 4)
-                               (void) printf("0x%x", gettw(&mainfile, pos, R_WORD));
-                       else
-                               paddr(pos);
-                       return  sz;
-               default:
-                       (void) fprintf(stderr, "Funny mode\n");
-                       exit(220);
-               }
-       }
-       /*NOTREACHED*/
-}
-
-int    pmove(te, pos)
-t_entry        *te;
-long   pos;
-{
-       unsigned  sz  =  2;
-       unsigned  tc  =  te->t_contents;
-
-       (void) printf("mov%s\t", optab[te->t_iindex].prarg);
-
-       if  ((tc & 0xf000) == 0x2000)
-               sz = 4;
-
-       pos += prea(tc, pos, sz);
-       putchar(',');
-       (void) prea(((tc >> 9) & 0x7) | ((tc >> 3) & 0x38), pos, sz);
-}
-
-int    pcbch(te)
-t_entry        *te;
-{
-       int     cc = ((te->t_contents >> 8) & 0xf) - 2;
-       char    *msg;
-       register  symbol  ts;
-
-       if  (cc < 0)
-               msg = cc < -1? "ra": "sr";
-       else
-               msg = cclist[cc];
-       (void) printf("b%s",msg);
-       if  (te->t_lng < 2)
-               (void) printf("s");
-       ts = te->t_relsymb;
-       if  (ts->s_lsymb != 0)
-               (void) printf("\t%u$", ts->s_lsymb);
-       else
-               (void) printf("\t%s", ts->s_name);
-}
-
-int    pdbcc(te)
-t_entry        *te;
-{
-       unsigned  tc  =  te->t_contents;
-       int     cc = ((tc >> 8) & 0xf) - 2;
-       char    *msg;
-       register  symbol  ts;
-
-       if  (cc < 0)
-               msg = cc < -1? "t": "f";
-       else
-               msg = cclist[cc];
-       ts = te->t_relsymb;
-       (void) printf("db%s\td%d,", msg, tc & 0x7);
-       if  (ts->s_lsymb)
-               (void) printf("%u$", ts->s_lsymb);
-       else
-               (void) printf("%s", ts->s_name);
-}
-
-int    pscc(te, pos)
-t_entry        *te;
-long   pos;
-{
-       unsigned  tc  =  te->t_contents;
-       int     cc = ((tc >> 8) & 0xf) - 2;
-       char    *msg;
-
-       if  (cc < 0)
-               msg = cc < -1? "t": "f";
-       else
-               msg = cclist[cc];
-       (void) printf("s%s\t", msg);
-       (void) prea(tc, pos, 1);
-}
-
-int    pcs(te, pos)
-t_entry        *te;
-long   pos;
-{
-       long    disp  =  gettw(&mainfile, pos+2, R_WORD);
-
-       (void) printf("%s", optab[te->t_iindex].prarg);
-       if  ((te->t_contents & 0xc0) == 0)
-               (void) printf("b\t#0x%x,cc", disp);
-       else
-               (void) printf("w\t#0x%x,sr", disp);
-}
-
-int    pmovc(te, pos)
-t_entry        *te;
-long   pos;
-{
-       int     disp = gettw(&mainfile, pos+2, R_WORD);
-       int     ctrl = ((disp >> 10) & 2) | (disp & 1);
-
-       (void) printf("movec\t");
-       if  ((te->t_contents & 1) == 0)
-               (void) printf("%s,", creg[ctrl]);
-       if  (disp & 0x8000)
-               (void) printf("%s", areg[(disp >> 12) & 7]);
-       else
-               (void) printf("d%d", disp >> 12);
-       if  (te->t_contents & 1)
-              (void) printf(",%s", creg[ctrl]);
-}
-
-int    pimed(te, pos)
-t_entry        *te;
-long   pos;
-{
-       int     sz = findleng(te->t_contents);
-
-       (void) printf("%s%c\t#", optab[te->t_iindex].prarg, sz);
-       if  (sz == 'l')  {
-               paddr(pos+2);
-               putchar(',');
-               (void) prea(te->t_contents, pos+4, 4);
-       }
-       else  {
-               (void) printf("0x%x,", gettw(&mainfile, pos+2, R_WORD));
-               (void) prea(te->t_contents, pos+2, 2);
-       }
-}
-
-int    pmovp(te, pos)
-t_entry        *te;
-long   pos;
-{
-       unsigned  tc  =  te->t_contents;
-       long    disp  =  gettw(&mainfile, pos+2, R_WORD);
-       int     dreg = tc >> 9;
-       char    *ar = areg[tc & 0x7];
-
-       (void) printf("movep");
-       if  (tc & (1 << 6))
-               putchar('l');
-       else
-               putchar('w');
-
-       if  (tc & (1 << 7))
-               (void) printf("\td%d,%s@(0x%x)", dreg, ar, disp);
-       else
-               (void) printf("\t%s@(0x%x),d%d", ar, disp, dreg);
-}
-
-int    psbit(te, pos)
-t_entry        *te;
-long   pos;
-{
-       unsigned  tc  =  te->t_contents;
-
-       (void) printf("b%s\t#%d,", bittyp[(tc >> 6) & 0x3], gettw(&mainfile, pos+2, R_WORD));
-       (void) prea(tc, pos+2, 1);
-}
-
-/*ARGSUSED*/
-int    pstop(te, pos)
-t_entry        *te;
-long   pos;
-{
-       (void) printf("stop\t#0x%x", gettw(&mainfile, pos+2, R_WORD));
-}
-
-int    pdbit(te, pos)
-t_entry        *te;
-long   pos;
-{
-       unsigned  tc  =  te->t_contents;
-
-       (void) printf("b%s\td%d,", bittyp[(tc >> 6) & 0x3], (tc >> 9) & 0x7);
-       (void) prea(tc, pos, 1);
-}
-
-int    pcs2(te, pos)
-t_entry        *te;
-long   pos;
-{
-       unsigned  tc  =  te->t_contents;
-
-       (void) printf("movw\t");
-       if  ((tc & 0xffc0) == 0x40c0)  {
-               (void) printf("sr,");
-               (void) prea(tc, pos, 2);
-      }
-       else  {
-               (void) prea(tc, pos, 2);
-               (void) printf(",%s", optab[te->t_iindex].prarg);
-       }
-}
-
-int    pone(te, pos)
-t_entry        *te;
-long   pos;
-{
-       unsigned  tc  =  te->t_contents;
-       int     sz = findleng(tc);
-
-       (void) printf("%s%c\t", optab[te->t_iindex].prarg, sz);
-       (void) prea(tc, pos, (unsigned)(sz == 'l'? 4: 2));
-}
-
-int    ppea(te, pos)   /*  nbcd, pea, tas, jmp, jsr  */
-t_entry        *te;
-long   pos;
-{
-       (void) printf("%s\t", optab[te->t_iindex].prarg);
-       (void) prea(te->t_contents, pos, (unsigned)(te->t_lng > 2? 4: 2));
-}
-
-
-int    plea(te, pos)
-t_entry        *te;
-long   pos;
-{
-       (void) printf("lea\t");
-       (void) prea(te->t_contents, pos, 4);
-       (void) printf(",%s", areg[(te->t_contents >> 9) & 0x7]);
-}
-
-int    pdreg(te)
-t_entry        *te;
-{
-       (void) printf("%s\td%d", optab[te->t_iindex].prarg, te->t_contents & 7);-}
-
-
-int    pmvml(te, pos)
-t_entry        *te;
-long   pos;
-{
-       unsigned  tc  =  te->t_contents;
-       register  unsigned  dw  =  gettw(&mainfile, pos+2, R_WORD);
-       unsigned  sz = 4;
-       int     sc = 'l';
-       register  int   i;
-       register  unsigned  bit;
-
-       (void) printf("movem");
-       if  ((tc & 0x40) == 0)  {
-               sc = 'w';
-               sz = 2;
-       }
-
-       (void) printf("%c\t", sc);
-
-       if  (tc & 0x400)  {
-               (void) prea(tc, pos+2, sz);
-               (void) printf(",#0x%x", dw);
-       }
-       else  {
-               (void) printf("#0x%x,", dw);
-               (void) prea(tc, pos+2, sz);
-       }
-
-       (void) printf("\t|");
-
-       if  ((tc & 0x38) == 0x20)  {
-               bit = 0x8000;
-               for  (i = 0;  i < 8;  i++)  {
-                       if  (dw & bit)
-                               (void) printf(" d%d", i);
-                      bit >>= 1;
-               }
-               for  (i = 0;  i < 8;  i++)  {
-                       if  (dw & bit)
-                               (void) printf(" %s", areg[i]);
-                       bit >>= 1;
-               }
-       }
-       else  {
-               bit = 1;
-               for  (i = 0;  i < 8;  i++)  {
-                       if  (dw & bit)
-                               (void) printf(" d%d", i);
-                       bit <<= 1;
-               }
-               for  (i = 0;  i < 8;  i++)  {
-                       if  (dw & bit)
-                               (void) printf(" %s", areg[i]);
-                       bit <<= 1;
-               }
-       }
-}
-
-int    ptrap(te)
-t_entry        *te;
-{
-       (void) printf("trap\t#0x%x", te->t_contents & 0xf);
-}
-
-int    plink(te, pos)
-t_entry        *te;
-long   pos;
-{
-       (void) printf("link\t%s,#0x%x", areg[te->t_contents & 0x7],
-                               gettw(&mainfile, pos+2, R_WORD));
-}
-
-
-int    pareg(te)
-t_entry        *te;
-{
-       (void) printf(optab[te->t_iindex].prarg, areg[te->t_contents & 0x7]);
-}
-
-int    podreg(te, pos)
-t_entry        *te;
-long   pos;
-{
-       unsigned  tc  =  te->t_contents;
-
-       (void) printf("%s\t", optab[te->t_iindex].prarg);
-       (void) prea(tc, pos, 2);
-       (void) printf(",d%d", (tc >> 9) & 0x7);
-}
-
-int    pqu(te, pos)
-t_entry        *te;
-long   pos;
-{
-       unsigned  tc  =  te->t_contents;
-       int     sz  =  findleng(tc);
-       int     amt = (tc >> 9) & 0x7;
-
-       if  (amt == 0)
-               amt = 8;
-       (void) printf("%sq%c\t#%d,", optab[te->t_iindex].prarg, sz, amt);
-       (void) prea(tc, pos, (unsigned)(sz == 'l'? 4: 2));
-}
-
-int    pmqu(te)
-t_entry        *te;
-{
-       unsigned  tc  =  te->t_contents;
-
-       (void) printf("moveq\t#0x%x,d%d", (char)tc, (tc >> 9) & 0x7);
-}
-
-int    ptreg(te)
-t_entry        *te;
-{
-       regster  unsigned  tc  =  te->t_contents;
-       int     rx = (tc >> 9) & 0x7;
-       int     ry = tc & 0x7;
-
-       (void) printf("%s\t", optab[te->t_iindex].prarg);
-       if  (tc & 0x8)
-               (void) printf("%s@-,%s@-", areg[ry], areg[rx]);
-       else
-               (void) printf("d%d,d%d", ry, rx);
-}
-
-int    pcmpm(te)
-t_entry        *te;
-{
-       register  unsigned  tc  =  te->t_contents;
-
-       (void) printf("%s\t%s@+,%s@+", optab[te->t_iindex].prarg,
-               areg[tc & 7], areg[(tc >> 9) & 7]);
-}
-
-int    pomode(te, pos)
-t_entry        *te;
-long   pos;
-{
-       unsigned  tc  =  te->t_contents;
-       char    bef[4], aft[4];
-       int     sz;
-       int     reg = (tc >> 9) & 7;
-
-       bef[0] = aft[0] = '\0';
-
-       switch  ((tc >> 6) & 7)  {
-       case  0:
-               sz = 'b';
-               goto  toreg;
-       case  1:
-               sz = 'w';
-               goto  toreg;
-       case  2:
-               sz = 'l';
-       toreg:
-               (void) sprintf(aft, ",d%d", reg);
-               break;
-       case  3:
-               sz = 'w';
-               goto  toareg;
-       case  7:
-               sz = 'l';
-       toareg:
-               (void) sprintf(aft, ",%s", areg[reg]);
-               break;
-       case  4:
-               sz = 'b';
-               goto  frreg;
-       case  5:
-               sz = 'w';
-               goto  frreg;
-       case  6:
-               sz = 'l';
-       frreg:
-               (void) sprintf(bef, "d%d,", reg);
-               break;
-       }
-
-       (void) printf("%s%c\t%s", optab[te->t_iindex].prarg, sz, bef);
-       (void) prea(tc, pos, (unsigned)(sz == 'l'? 4: 2));
-       (void) printf(aft);
-}
-
-int    pexg(te)
-t_entry        *te;
-{
-       unsigned  tc  =  te->t_contents;
-       int     r1 = (tc >> 9) & 7, r2 = tc & 7;
-
-       (void) printf("exg\t");
-
-       if  ((tc & 0x00f8) == 0x0048)
-              (void) printf("%s,", areg[r1]);
-       else
-               (void) printf("d%d,", r1);
-       if  (tc & 0x8)
-               (void) printf("%s", areg[r2]);
-       else
-               (void) printf("d%d", r2);
-}
-
-int    pmshf(te, pos)
-t_entry        *te;
-long   pos;
-{
-       unsigned  tc  =  te->t_contents;
-
-       (void) printf("%s%cw\t", shtype[(tc >> 9) & 3], tc & 0x100? 'l': 'r');
-       (void) prea(tc, pos, 2);
-}
-
-int    pshf(te)
-t_entry        *te;
-{
-       unsigned  tc  =  te->t_contents;
-       int     sz  =  findleng(tc);
-       int     disp = (tc >> 9) & 7;
-
-       (void) printf("%s%c%c\t", shtype[(tc >> 3) & 3], tc & 0x100? 'l': 'r', sz);
-       if  (tc & 0x20)
-               (void) printf("d%d", disp);
-       else
-               (void) printf("#%d", disp == 0? 8: disp);
-       (void) printf(",d%d", tc & 7);
-}
-
-/*
- *     Find length etc of instruction.
- */
-
-int    findinst(te, pos)
-register  t_entry  *te;
-long   pos;
-{
-       register  struct  opstr *op;
-       unsigned  tc  =  te->t_contents;
-       int     lng = 0;
-       register  int   i;
-
-       te->t_type = T_BEGIN;
-       te->t_bchtyp = T_NOBR;
-
-       for  (op = &optab[0];  op->mask;  op++)  {
-               if  ((tc & op->mask) == op->match)  {
-                       te->t_iindex = op - optab;
-                       lng = (op->opsize)(te, pos);
-                       break;
-               }
-       }
-
-       for  (i = 1;  i < lng;  i++)  {
-               t_entry ctent;
-               long    npos = pos+i+i;
-
-               if  (npos >= endt)
-                       goto  clearem;
-               gette(&mainfile, npos, &ctent);
-               if  (ctent.t_bdest || ctent.t_dref)  {
-clearem:               for  (i--; i > 0; i--)  {
-                               npos = pos + i + i;
-                               gette(&mainfile, npos, &ctent);
-                               ctent._type = T_UNKNOWN;
-                               putte(&mainfile, npos, &ctent);
-                       }
-                       lng = 0;
-                       goto  ginv;
-               }
-               ctent.t_type = T_CONT;
-               putte(&mainfile, npos, &ctent);
-       }
-
-       if  (lng <= 0)  {
-ginv:          te->t_vins = 0;
-               te->t_lng = 1;
-               te->t_type = T_UNKNOWN;
-               te->t_bchtype = T_NOBR;
-       }
-       else
-               te->t_lng = lng;
-       return  lng;
-}
-
-/*
- *     Print instruction.
- */
-
-void   prinst(te, pos)
-t_entry        *te;
-long   pos;
-{
-       putchar('\t');
-       (optab[te->t_iindex].opprin)(te, pos);
-       putchar('\n');
-}
//GO.SYSIN DD iset.c
echo libmtch.c 1>&2
sed 's/.//' >libmtch.c <<'//GO.SYSIN DD libmtch.c'
-/*
- *     SCCS:   @(#)libmtch.c   1.2     11/2/84 14:18:55
- *     Read library files.
- *
- ***********************************************************************
- *     This software is copyright of
- *
- *             John M Collins
- *             47 Cedarwood Drive
- *             St Albans
- *             Herts, AL4 0DN
- *             England                 [phone]
- *
- *     and is released into the public domain on the following conditions:
- *
- *             1.  No free maintenance will be guaranteed.
- *             2.  Nothing may be based on this software without
- *                 acknowledgement, including incorporation of this
- *                 notice.
- *
- *     Notwithstanding the above, the author welcomes correspondence and bug
- *     fixes.
- ***********************************************************************
- */
-
-#include <stdio.h>
-#include <fcntl.h>
-#include <a.out.h>
-#include <ar.h>
-#include <setjmp.h>
-#include "unc.h"
-
-long   lseek();
-void   bfopen(), bfclose(), nomem();
-void   rrell2(), markmatch();
-char   *strchr(), *strrchr(), *strncpy(), *strcat(), *strcpy(, *malloc();
-int    matchup();
-long   findstart();
-
-char   verbose;                /*  Tell the world what we are doing  */
-char   *tfnam;
-char   *cfile;
-ef_fids        mainfile;
-struct commit  dreltab;
-int    donedrel, donebrel;
-long   trelpos, drelpos, brelpos;
-static struct  libit   currlib = {-1, 0, -1, ""};
-
-void   lclash(str)
-char   *str;
-{
-       (void) fprintf(stderr, "Library scan failure - %s\n", str);
-       (void) fprintf(stderr, "Searching %s\n", cfile);
-       if  (currlib.lf_name[0])
-               (void) fprintf(stderr, "Member is %s\n", currlib.lf_name);
-       exit(255);
-}
-
-/*
- *     Find next member.
- */
-
-long   nextmemb(lfd)
-register  struct  libit         *lfd;
-{
-       struct  ar_hdr  arbuf;
-
-       if  (lfd->lf_next < 0)
-               return  -1;
-
-       (void) lseek(lfd->lf_fd, lfd->lf_next, 0);
-       if  (read(lfd->lf_fd, (char *)&arbuf, sizeof(arbuf)) != sizeof(arbuf))  {
-               lfd->lf_next = -1;
-               return  -1;
-       }
-       (void) strncpy(lfd->lf_name, arbuf.ar_name, sizeof(lfd->lf_name));
-       lfd->lf_offset = lfd->lf_next + sizeof(arbuf);
-       lfd->lf_next = (lfd->lf_offset + arbuf.ar_size + 1) & ~1;
-       return  lfd->lf_offset;
-}
-
-/*
- *     Decode a file name thus -
- *
- *     -lxxx decode as /lib/libxxx.a /usr/lib/libxxx.a etc
- *     -Lxxx forget "lib" ".a" bit thus -Lcrt0.o
- *     or read LDPATH environment var to give list of directories as sh
- *     (default /lib:/usr/lib).
- *
- *     Alternatively treat as normal pathname.
- *
- *     File names may be followed by (membername) if the file is an archive,
- *     thus
- *
- *             -lc(printf.o)
- *
- *     in which case the specified module is fetched.
- */
-
-struct libit   *getfnam(str)
-char   *str;
-{
-       char    *bp, *ep = NULL, *pathb, *pathe, *fullpath = NULL;
-       static  char    *pathn;
-       extern  char    *getenv();
-       long    magic;-       struct  ar_hdr  arhdr;
-       int     fd;
-
-       if  ((bp = strrchr(str, '(')) != NULL &&
-                (ep = strrchr(str, ')')) != NULL)
-               *ep = *bp = '\0';
-
-       if  (str[0] == '-'  &&  (str[1] == 'l' || str[1] == 'L'))  {
-               if  (pathn == NULL)  {
-                       if  ((pathn = getenv("LDPATH")) == NULL)
-                               pathn = "/lib:/usr/lib";
-               }
-               fullpath = malloc((unsigned)(strlen(pathn) + strlen(str) + 1));
-               if  (fullpath == NULL)
-                       nomem();
-               pathb = pathn;
-               do  {
-                       pathe = strchr(pathb, ':');
-                       if  (*pathb == ':')
-                               fullpath[0] = '\0';
-                       else  {
-                               if  (pathe != NULL)
-                                       *pathe = '\0';
-                               (void) strcpy(fullpath, pathb);
-                               (void) strcat(fullpath, "/");
-                               if  (pathe != NULL)
-                                       *pathe = ':';
-                       }
-                       if  (str[1] == 'l')
-                               (void) strcat(fullpath, "lib");
-                       (void) strcat(fullpath, &str[2]);
-                       if  (str[1] == 'l')
-                               (void) strcat(fullpath, ".a");
-                       if  ((fd = open(fullpath, O_RDONLY)) >= 0)
-                               goto  found;
-                       pathb = pathe + 1;
-               }   while  (pathe != NULL);
-
-               (void) fprintf(stderr, "Unable to locate lib%s.a in %s\n",
-                       &str[2], pathn);
-               exit(101);
-       }
-       else  if  ((fd = open(str, O_RDONLY)) < 0)  {
-               (void) fprintf(stderr, "Cannot open %s\n", str);
-               exit(102);
-       }
-
-found:
-
-       if  ((read(fd, (char *) &magic, sizeof(magic)) != sizeof(magic)  ||
-               magic != ARMAG))  {
-               if  (ep != NULL)  {
-                       (void) fprintf(stderr, "%s is not library file\n",
-                                       fullpath != NULL? fullpath: str);
-                       exit(103);
-               }
-               if  (fullpath != NULL)
-                       free(fullpath);
-               currlib.lf_fd = fd;
-               currlib.lf_offset = 0;
-               currlib.lf_next = -1;
-               currlib.lf_name[0] = '\0';
-               return  &currlib;
-       }
-
-       /*
-        *      It appears to be a library file - see if we want a specific
-        *      one.
-        */
-
-       if  (ep != NULL)  {
-               currlib.lf_offset = sizeof(magic) + sizeof(struct ar_hdr);
-               for  (;;)  {
-                       if  (read(fd, &arhdr, sizeof(arhdr)) != sizeof(arhdr))  {
-                               (void) fprintf(stderr, "Cannot find member %s in %s\n",
-                                       bp+1, fullpath?fullpath: str);
-                               exit(103);
-                       }
-                       if  (strncmp(bp+1, arhdr.ar_name, sizeof(arhdr.ar_name)) == 0)
-                               break;
-                       currlib.lf_offset += arhdr.ar_size + sizeof(arhdr) + 1;
-                       currlib.lf_offset &= ~ 1;
-                       (void) lseek(fd, (long)(currlib.lf_offset - sizeof(arhdr)), 0);
-               }
-               if  (fullpath != NULL)
-                       free(fullpath);
-               currlib.lf_fd = fd;
-               currlib.lf_next = -1;
-               currlib.lf_name[0] = '\0';
-               *bp = '(';
-               *ep = ')';
-               return  &currlib;
-       }
-
-       /*
-        *      Otherwise point to 1st member in library.
-        */
-
-       if  (read(fd, &arhdr, szeof(arhdr)) != sizeof(arhdr))  {
-               (void) fprintf(stderr, "Library %s empty\n", fullpath? fullpath: str);
-               exit(104);
-       }
-       if  (fullpath != NULL)
-               free(fullpath);
-       currlib.lf_offset = sizeof(magic) + sizeof(arhdr);
-       currlib.lf_next = currlib.lf_offset + arhdr.ar_size + 1;
-       currlib.lf_next &= ~1;
-       currlib.lf_fd = fd;
-       (void) strncpy(currlib.lf_name, arhdr.ar_name, sizeof(currlib.lf_name));-       return  &currlib;
-}
-
-/*
- *     Process library files.
- */
-
-#define        MINTEXT 6
-
-void   lscan(nfiles, fnames)
-int    nfiles;
-char   **fnames;
-{
-       ef_fids libfile;
-       register  ef_fid  ll = &libfile;
-       register  struct  libit  *clf;
-       extern  symbol  dolsymb();
-       int     firstfile;
-
-       for  (;  nfiles > 0;  fnames++, nfiles--)  {
-               clf = getfnam(*fnames);
-               cfile = *fnames;
-               firstfile = 1;
-               do  {
-                       bfopen(tfnam, ll);
-
-                       /*
-                        *      If file is garbled, silently forget it and go
-                        *      on to the next one.
-                        */
-
-                       if  (!rtext(clf->lf_fd, clf->lf_offset, ll))
-                               goto  closeit;
-
-                       if  (ll->ef_tsize < MINTEXT)
-                               goto  closeit;
-
-                       if  (!rdata(clf->lf_fd, clf->lf_offset, ll))
-                               goto  closeit;
-
-                       if  (rrell1(clf->lf_fd, clf->lf_offset, ll) < 0)
-                               goto  closeit;
-
-                       /*
-                        *      If first file in library, find it from
-                        *      beginning of main file.
-                       */
-
-                       if  (firstfile)  {
-                               if  ((trelpos = findstart(&mainfile, ll)) < 0)
-                                       goto  closeit;
-                               firstfile = 0;
-                       }
-                       else   if  (!matchup(&mainfile, ll, trelpos))
-                                       goto  closeit;
-
-                       /*
-                        *      Found a match.
-                        */
-
-                       if  (!rsymb(clf->lf_fd, clf->lf_offset, dolsymb, ll))  {-                               (void) fprintf(stderr, "Corrupt file %s\n",
-                                                       *fnames);
-                               exit(150);
-                       }
-
-                       donedrel = 0;
-                       donebrel = 0;
-                       rrell2(clf->lf_fd, clf->lf_offset, ll);
-                       if  (verbose)  {
-                               (void) fprintf(stderr, "Found: ");
-                               if  (clf->lf_name[0])
-                                       (void) fprintf(stderr, "%.14s in ",
-                                                       clf->lf_name);
-                               (void) fprintf(stderr, "%s\n", *fnames);
-                       }
-                       if  (libfile.ef_stvec != NULL)  {
-                               free(libfile.ef_stvec);
-                               libfile.ef_stvec = NULL;
-                               libfile.ef_stcnt = 0;
-                       }
-                       dreltab.c_int = 0;
-
-                       /*
-                        *      Start looking next time round
-                        *      where last one left off.
-                        */
-
-                       markmatch(&mainfile, ll, trelos);
-                       trelpos += libfile.ef_tsize;
-closeit:
-                       bfclose(ll);
-               }  while  (nextmemb(clf) >= 0);
-       }
-}
//GO.SYSIN DD libmtch.c
echo main.c 1>&2
sed 's/.//' >main.c <<'//GO.SYSIN DD main.c'
-/*
- *     SCCS:   @(#)main.c      1.2     11/2/84 14:19:31
- *     Main routine etc.
- *
- ***********************************************************************
- *     This software is copyright of
- *
- *             John M Collins
- *             47 Cedarwood Drive
- *             St Albans
- *             Herts, AL4 0DN
- *             England                 [phone]
- *
- *     and is released into the public domain on the following conditions:
- *
- *             1.  No free maintenance will be guaranteed.
- *             2.  Nothing may be based on this software without
- *                 acknowledgement, including incorporation of this
- *                 notice.
- *
- *     Notwithstanding the above, the author welcomes correspondence and bug
- *     fixes.
- ***********************************************************************
- */
-
-#include <stdio.h>
-#include <fcntl.h>
-#include <a.out.h>
-#include <sys/var.h>
-#include "unc.h"
-
-#define        LINELNG 70
-
-void   inturdat(), intutext(), intudat(), intlsym();
-void   ptext(), pdata(), pabs(), pbss(), lscan();
-
-ef_fids        mainfile;
-
-int    par_entry, par_round;   /*  68000 parameters  */
-int    nmods;                  /*  Number of modules it looks like  */
-
-char   *tfnam = "split";
-
-char   lsyms;                  /*  Generate local symbols  */
-char   verbose;                /*  Tell the world what we are doing  */
-char   noabs;                  /*  No non-global absolutes  */
-int    rel;                    /*  File being analysed is relocatable  */
-int    lpos;
-
-symbol dosymb();
-struct libit   *getfnam();
-
-/*
- *     Get hex characters, also allowing for 'k' and 'm'.
- */
-
-int    ghex(str)
-registe  char *str;
-{
-       register  int   result = 0;
-       register  int   lt;
-
-       for  (;;)  {
-               lt = *str++;
-               switch  (lt)  {
-               default:
-err:                   (void) fprintf(stderr, "Invalid hex digit \'%c\'\n", lt);
-                       exit(1);
-
-               case '\0':
-                       return  result;
-
-               case '0':case '1':case '2':case '3':case '4':
-               case '5':case '6':case '7':case '8':case '9':
-                       result = (result << 4) + lt - '0';
-                       continue;
-
-               case 'a':case 'b':case 'c':case 'd':case 'e':case 'f':
-                       result = (result << 4) + lt - 'a' + 10;
-                       continue;
-
-               case 'A':case 'B':case 'C':case 'D':case 'E':case 'F':
-                       result = (result << 4) + lt - 'A' + 10;
-                       continue;
-
-               case 'k':case 'K':
-                       if  (*str != '\0')
-                               goto  err;
-                       return  result << 10;
-
-               case 'm':case 'M':
-                       if  (*str != '\0')
-                               goto  err;
-                       return  result << 20;
-               }
-       }
-}
-
-/*
- *     Process entry line options.  Return number dealt with.
- */
-
-int    doopts(av)
-char   *av[];
-{
-       register  int   cnt = 0, lt;
-       register  char  *arg;
-       struct  var     vs;
-
-       uvar(&vs);
-       par_entry = vs.v_ustart;
-       par_round = vs.v_txtrnd - 1;
-
-       for  (;;)  {
-               arg = *++av;
-               if  (*arg++ != '-')
-                       return  cnt;
-               cnt++;
-
-nx:            switch  (lt = *arg++)  {
-               default:
-                       (void)fprintf(stderr, "Bad option -%c\n", lt);
-                       exit(1);
-
-               case  '\0':
-                       continue;
-
-               case  'l':      /*  A file name  */
-               case  'L':
-                       return  cnt - 1;
-
-               case  's':
-                       lsyms++;
-                       goto  nx;
-
-               case  'v':
-                       verbose++;
-                       goto  nx;
-
-               case  'a':
-                       noabs++;
-                       goto  nx;
-
-               case  'R':
-               case  'N':
-                       if  (*arg == '\0')  {
-                               cnt++;
-                               arg = *++av;
-                               if  (arg == NULL)  {
-bo:                                    (void) fprintf(stderr,"Bad -%c option\n",lt);
-                                       exit(1);
-                               }
-                       }
-                       if  (lt == 'R')
-                               par_entry = ghex(arg);
-                       else
-                               par_round = ghex(arg) - 1;
-                       continue;
-
-               case  't':
-                       if  (*arg == '\0')  {
-                               cnt++;
-                               arg = *++av;
-                               if  (arg == NULL)
-                                       goto  bo;
-                       }
-                       tfnam = arg;
-                       continue;
-
-               case  'o':
-                       if  (*arg == '\0')  {
-                               cnt++;
-                               arg = *++av;
-                               if  (arg == NULL)
-                                       goto  bo;
-                      }
-                       if  (freopen(arg, "w", stdout) == NULL)  {
-                               (void) fprintf(stderr, "Help! cant open %s\n", arg);
-                               exit(20);
-                       }
-                       continue;
-               }
-       }
-}
-
-/*
- *     Open binary files.  Arrange to erase them when finished.
- */
-
-void   bfopen(nam, fid)
-char   *nam;
-ef_fid fid;
-{
-       char    fnam[80];
-
-       (void) sprintf(fnam, "%s.tx", nam);
-       if  ((fid->ef_t = open(fnam, O_RDWR|O_CREAT, 0666)) < 0)  {
-efil:          (void) fprintf(stderr, "Help could not open %s\n", fnam);
-               exit(4);
-       }
-       (void) unlink(fnam);
-       (void) sprintf(fnam, "%s.dt", nam);
-       if  ((fid->ef_d = open(fnam, O_RDWR|O_CREAT, 0666)) < 0)
-               goto  efil;
-       (void) unlink(fnam);
-}
-
-/*
- *     Close binary files.  They should get zapped anyway.
- */
-
-void   bfclose(fid)
-ef_fid fid;
-{
-       (void) close(fid->ef_t);
-       (void) close(fid->ef_d);
-}
-
-/*
- *     Main routine.
- */
-
-main(argc, argv)
-int    argc;
-char   *argv[];
-{
-       int     i;
-       char    *progname = argv[0];
-       char    *msg;
-       register  struct  libit  *lfd;
-
-       i = doopts(argv);
-       argc -= i;
-       argv += i;
-
-       if  (argc < 2)  {
-               (void) fprintf(stderr, "Usage: %s [ options ] file\n", progname);
-               exit(1);
-       }
-
-       lfd = getfnam(argv[1]);
-       if  (lfd->lf_next > 0)  {
-               (void) fprintf(stderr, "Main file (%s) cannot be library\n", argv[1]);
-               exit(2);
-       }
-
-       bfopen(tfnam, &mainfile);
-       if  (verbose)
-               (void) fprintf(stderr, "Scanning text\n");
-       if  (!rtext(lfd->lf_fd, lfd->lf_offset, &mainfile))  {
-               msg = "text";
-bf:            (void) fprintf(stderr, "Bad format input file -reading %s\n", msg);
-               exit(5);
-       }
-       if  (verbose)
-               (void) fprintf(stderr, "Scanning data\n");
-       if  (!rdata(lfd->lf_fd, lfd->lf_offset, &mainfile))  {
-               msg = "data";
-               goto  bf;
-       }
-       if  (verbose)
-               (void) fprintf(stderr, "Scanning symbols\n");
-       if  (!rsymb(lfd->lf_fd, lfd->lf_offset, dosymb, &mainfile))  {
-               msg = "symbols";
-               goto  bf;
-       }
-       if  (verbose)
-               (void) fprintf(stderr, "Scanning for relocation\n");
-       if  ((rel = rrel(lfd->lf_fd, lfd->lf_offset, &mainfile)) < 0)  {
-               msg = "reloc";
-               goto  bf;
-       }
-
-       if  (rel)  {
-               if  (verbose)
-                       (void) fprintf(stderr, "File is relocatable\n");
-               if  (argc > 2)
-                       (void) fprintf(stderr, "Sorry - no scan on reloc files\n");
-       }
-       else
-               lscan(argc - 2, &argv[2]);
-
-       if  (verbose)
-               (void) fprintf(stderr, "End of input\n");
-
-       (void) close(lfd->lf_fd);
-       if  (nmods > 0)
-               (void) fprintf(stderr, "Warning: at least %d merged modules\n",
-                       nmods + 1);
-
-       if  (mainfile.ef_stvec != NULL)  {
-               free(mainfile.ef_stvec);
-               mainfile.ef_stvec = NULL;
-               mainfile.ef_stcnt = 0;
-       }
-
-       if  (verbose)
-               (void) fprintf(stderr, "Text anal 1\n");
-       intutext();
-       if  (verbose)
-               (void) fprintf(stderr, "Data anal 1\n");
-       intudat(&mainfile);
-       if  (!rel)  {
-               if  (verbose)
-                       (void) fprintf(stderr, "Data anal 2\n");
-               inturdat(&mainfile);
-       }
-       if  (lsyms)  {
-               if  (verbose)
-                       (void) fprintf(stderr, "Local symbol scan\n");
-              intlsym();
-       }
-       pabs();
-       ptext(&mainfile);
-       pdata(&mainfile);
-       pbss(&mainfile);
-       bfclose(&mainfile);
-       exit(0);
-}
//GO.SYSIN DD main.c
echo prin.c 1>&2
sed 's/.//' >prin.c <<'//GO.SYSIN DD prin.c'
-/*
- *     SCCS:   @(#)prin.c      1.2     11/2/84 14:19:47
- *     Print stuff.
- *
- ***********************************************************************
- *     This software is copyright of
- *
- *             John M Collins
- *             47 Cedarwood Drive
- *             St Albans
- *             Herts, AL4 0DN
- *             England                 [phone]
- *
- *     and is released into the public domain on the following conditions:
- *
- *             1.  No free maintenance will be guaranteed.
- *             2.  Nothing may be based on this software without
- *                 acknowledgement, including incorporation of this
- *                 notice.
- *
- *     Notwithstanding the above, the author welcomes correspondence and bug
- *     fixes.
- ***********************************************************************
- */
-
-#include <stdio.h>
-#include <a.out.h>
-#include "unc.h"
-
-#define        LINELNG 70
-
-void   gette(), getde();
-long   gettw(), getdw();
-void   prinst();
-
-char   noabs;                  /*  No non-global absolutes  */
-int    rel;                    /*  File being analysed is relocatable  */
-int    lpos;
-
-struct commit  abstab, comtab;
-
-/*
- *     Print absolute and common values.
- */
-
-void   pabs()
-{
-       register  int   i;
-       register  symbol  cs;
-
-       for  (i = 0;  i < abstab.c_int;  i++)
-
-       for  (i = 0;  i < abstab.c_int;  i++)  {
-               cs = abstab.c_symb[i];
-               if  (cs->s_glob)
-                       (void) printf("\t.globl\t%s\n", cs->s_name);
-               else  if  (noabs)
-                       continue;
-               (void) printf("%s\t=\t0x%lx\n", cs->s_name, cs->s_valu);
-       }
-       for  (i = 0;  i < comtab.c_int;  i++)  {
-               cs = comtab.c_symb[i];
-               (void) printf("\t.comm\t%s,%d\n", cs->s_name, cs->s_value);
-       }
-}
-
-/*
- *     Print out labels.
- */
-
-void   plabs(ls, seg)
-register  symbol  ls;
-int    seg;
-{
-       for  (; ls != NULL;  ls = ls->s_link)  {
-               if  (ls->s_type != seg)
-                       continue;
-               if  (ls->s_lsymb)  {
-                       (void) printf("%u$:\n", ls->s_lsymb);
-                       return;         /*  Set last  */
-               }
-               if  (ls->s_glob)
-                       (void) printf("\n\t.globl\t%s", ls->s_name);
-               (void) printf("\n%s:\n", ls->s_name);
-       }
-}
-
-/*
- *     Print out text.
- */
-
-void   ptext(fid)
-register  ef_fid  fid;
-{
-       register  long  tpos, endt;
-       t_entry tstr;
-
-       (void) printf(".text\n");
-
-       tpos = fid->ef_tbase;
-       endt = tpos + fid->ef_tsize;
-contin:
-       for  (;  tpos < endt;  tpos += tstr.t_lng * 2)  {
-               gette(fid, tpos, &tstr);
-               plabs(tstr.t_lab, TEXT);
-               if  (tstr.t_type == T_BEGIN)
-                       prinst(&tstr, tpos);
-               else  if  (tstr.t_relsymb != NULL)  {
-                       (void) printf("\t.long\t%s", tstr.t_relsymb->s_name);
-                       if  (tstr.t_relsymb->s_type!=TEXT &&
-                               tstr.t_relsymb->s_type!=DATA)
-                               (void) printf("+0x%x", gettw(fid, tpos, R_LONG));
-                       putchar('\n');
-                       tpos += 4;
-                       goto  contin;
-               }
-               else
-                       (void) printf("\t.word\t0x%x\n", tstr.t_contents);
-       }
-
-       /*
-        *      Print out any trailing label.
-        */
-
-       gette(fid, tpos, &tstr);
-       plabs(tstr.t_lab, TEXT);
-}

-/*
- *     Print out data.
- */
-
-void   pdata(fid)
-register  ef_fid  fid;
-{
-       register  long  dpos, endd;
-       register  int   lng;
-       unsigned  ctyp;
-       int     had, par, inc;
-       char    *msg;
-       d_entry dstr;
-
-       (void) printf("\n.data\n");
-
-       dpos = fid->ef_dbase;
-       endd = dpos + fid->ef_dsize;
-
-       while  (dpos < endd)  {
-
-               getde(fid, dpos, &dstr);
-               plabs(dstr.d_lab, DATA);
-
-               switch  (dstr.d_type)  {
-               case  D_CONT:
-                       (void) fprintf(stderr, "Data sync error\n");
-                       exit(200);
-
-               case  D_ASC:
-               case  D_ASCZ:
-                       ctyp = dstr.d_type;
-                       lng = dstr.d_lng;
-                       (void) printf("\t.asci");
-                       if  (ctyp == D_ASC)
-                               (void) printf("i\t\"");
-                       else  {
-                               (void) printf("z\t\"");
-                               lng--;
-                       }
-
-                       while  (lng > 0)  {
-                               getde(fid, dpos, &dstr);
-                               switch  (dstr.d_contents)  {
-                               default:
-                                       if  (dstr.d_contents < ' ' ||
-                                               dstr.d_contents > '~')
-                                               (void) printf("\\%.3o", dstr.d_contents);
-                                       else
-                                               putchar(dstr.d_contents);
-                                       break;
-                               case  '\"':
-                               case  '\'':
-                               case  '\\':
-                               case  '|':
-                                      (void) printf("\\%c", dstr.d_contents);
-                                       break;
-                               case  '\b':
-                                       (void) printf("\\b");
-                                       break;
-                               case  '\n':
-                                       (void) printf("\\n");
-                                       break;
-                               case  '\r':
-                                       (void) printf("\\r");
-                                       break;
-                               }
-
-                               lng--;
-                               dpos++;
-                       }
-                       (void) printf("\"\n");
-                       if  (ctyp == D_ASCZ)
-                               dpos++;
-                       break;
-
-               case  D_BYTE:
-                       msg = "byte";
-                       par = R_BYTE;
-                       inc = 1;
-                       goto  wrest;
-
-               case  D_WORD:
-                       msg = "word";
-                       par = R_WORD;
-                       inc = 2;
-                       goto  wrest;
-
-               case  D_LONG:
-                       msg = "long";
-                       par = R_LONG;
-                       inc = 4;
-               wrest:
-                       (void) printf("\t.%s\t", msg);
-                       lng = dstr.d_lng;
-                       lpos = 16;
-                       had = 0;
-                       while  (lng > 0)  {
-                               if  (lpos > LINELNG)  {
-                                       (void) printf("\n\t.%s\t", msg);
-                                       lpos = 16;
-                               }
-                               else  if  (had)
-                                       lpos += printf", ");
-
-                               lpos += printf("0x%x", getdw(fid, dpos, par));
-                               lng -= inc;
-                               dpos += inc;
-                               had++;
-                       }
-                       putchar('\n');
-                       break;
-
-               case  D_ADDR:
-                       (void) printf("\t.long\t");
-                       lng = dstr.d_lng;
-                       lpos = 16;
-                       had = 0;
-                       while  (lng > 0)  {
-                               if  (lpos > LINELNG)  {
-                                       (void) printf("\n\t.long\t");
-                                       lpos = 16;
-                               }
-                               else  if  (had)
-                                       lpos += printf(", ");
-
-                               getde(fid, dpos, &dstr);
-                               lpos += printf("%s", dstr.d_relsymb->s_name);
-                               lng -= sizeof(long);
-                               dpos += sizeof(long);
-                               had++;
-                       }
-                       putchar('\n');
-                       break;
-               }
-       }
-
-       /*
-        *      Print trailing label.
-        */
-
-       getde(fid, dpos, &dstr);
-       plabs(dstr.d_lab, DATA);
-}
-
-void   pbss(fid)
-register  ef_fid  fid;
-{
-       register  long  bpos = fid->ef_bbase;
-       long    endb = fid->ef_end;
-       d_entry bstr;
-
-       (void) printf("\n.bss\n");
-
-       while  (bpos < endb)  {
-               getde(fid, bpos, &bstr);
-               plabs(bstr.d_lab, BSS);
-               (void) printf("\t.space\t%d\n", bstr.d_lng);
-               bpos += bstr.d_lng;
-       }
-
-       getde(fid, endb, &bstr);
-       plabs(bstr.d_lab, BSS);
-}
//GO.SYSIN DD prin.c
echo robj.c 1>&2
sed 's/.//' >robj.c <'//GO.SYSIN DD robj.c'
-/*
- *     SCCS:   @(#)robj.c      1.2     11/2/84 14:19:59
- *     Read object files.
- *
- ***********************************************************************
- *     This software is copyright of
- *
- *             John M Collins
- *             47 Cedarwood Drive
- *             St Albans
- *             Herts, AL4 0DN
- *             England                 [phone]
- *
- *     and is released into the public domain on the following conditions:
- *
- *             1.  No free maintenance will be guaranteed.
- *             2.  Nothing may be based on this software without
- *                 acknowledgement, including incorporation of this
- *                 notice.
- *
- *     Notwithstanding the above, the author welcomes correspondence and bug
- *     fixes.
- ***********************************************************************
- *
- *     This particular module will obviously have to be munged beyond
- *     recognition for another object format.
- */
-
-#include <stdio.h>
-#include <a.out.h>
-#include "unc.h"
-
-void   gette(), getde(), setde(), putte(), putde();
-long   gettw(), getdw();
-void   reallst(), lclash(), nomem(), unimpl();
-void   addit();
-char   *malloc();
-long   lseek();
-
-int    par_entry, par_round, nmods, donedrel, donebrel;
-struct commit  abstab, comtab, dreltab;
-long   trelpos, drelpos, brelpos;
-
-ef_fids        mainfile;
-
-symbol lookup(), inventsymb(), getnsymb();
-
-#define        DBSIZE  100
-#define        STINIT  20
-
-/*
- *     Read text segment.  Return 0 if not ok.
- */
-
-int    rtext(inf, offset, outf)
-int    inf;            /*  a.out file (possibly in library)  */
-long   offset;         /*  Offset from start of inf of a.out file  */
-ef_fid outf;           /*  Output file descriptor  */
-{
-       t_entry         tstr;
-       struct  bhdr    filhdr;
-       register  long  size;
-       register  int   i, l;
-       unsigned  short inbuf[DBSIZE/2];
-
-      /*
-        *      Initialise fields in structure.
-        */
-
-       tstr.t_type = T_UNKNOWN;
-       tstr.t_vins = 1;                /*  For the moment  */
-       tstr.t_bdest = 0;
-       tstr.t_gbdest = 0;
-       tstr.t_lng = 1;
-       tstr.t_reloc = R_NONE;
-       tstr.t_rdisp = 0;
-       tstr.t_isrel = 0;
-       tstr.t_amap = 0;
-       tstr.t_dref = 0;
-       tstr.t_relsymb = NULL;
-       tstr.t_reldisp = 0;
-       tstr.t_lab = NULL;
-       tstr.t_lsymb = 0;
-       tstr.t_refhi = 0;
-       tstr.t_reflo = 0x7fffffff;
-       tstr.t_match = 0;
-
-       /*
-        *      Read a.out header.
-        */
-
-       (void) lseek(inf, offset, 0);
-
-       if  (read(inf, (char *)&filhdr, sizeof(filhdr)) != sizeof(filhdr))
-               return  0;
-
-       if  (filhdr.fmagic != FMAGIC  &&  filhdr.fmagic != NMAGIC)
-               return  0;
-
-       /*
-        *      Warn user if entry point does not tie up.
-        */
-
-       if  (filhdr.entry != par_entry)
-               (void) fprintf(stderr, "Warning: File has -R%X\n", filhdr.entry);
-
-       outf->ef_entry = filhdr.entry;
-       outf->ef_tbase = filhdr.entry;
-       outf->ef_dbase = filhdr.tsize + filhdr.entry;
-
-       if  (filhdr.fmagic == NMAGIC)
-               outf->ef_dbase = (outf->ef_dbase + par_round) & (~par_round);
-
-       outf->ef_bbase = outf->ef_dbase + filhdr.dsize;
-       outf->ef_end = outf->ef_bbase + filhdr.bsize;
-
-       outf->ef_tsize = filhdr.tsize;
-       outf->ef_dsize = filhdr.dsize;
-       outf->ef_bsize = filhdr.bsize;
-
-       (void) lseek(inf, offset + TEXTPOS, 0);
-
-       size = outf->ef_tsize;
-
-       while  (size > 1)  {
-               l = size > DBSIZE? DBSIZE: size;
-               if  (read(inf, (char *)inbuf, l) != l)
-                       return  0;
-               l /= 2;
-               for  (i = 0;  i < l;  i++)  {
-                       tstr.t_contents = inbuf[i];
-                       (void) write(outf->ef_t, (char *)&tstr, sizeof(tstr));
-               }
-               size -= l + l;
-       }
-
-       /*
-        *      Extra one to cope with "etext".
-        */
-
-       (void) write(outf->ef_t, (char *)&tstr, sizeof(tstr));
-       return  1;
-}
-
-/*
- *     Same sort of thing for the data segment.
- */
-
-int    rdata(inf, offset, outf)
-int    inf;            /*  a.out file (possibly in library)  */
-long   offset;         /*  Offset from start of inf of a.out file  */
-ef_fid outf;           /*  Output file descriptor  */
-{
-       d_entry         dstr;
-       struct  bhdr    filhdr;
-       register  long  size;
-       register  int   i, l;
-       unsigned  char  inbuf[DBSIZE];
-
-       /*
-        *      Initialise fields in structure.
-        */
-
-       dstr.d_type = D_BYTE;
-       dstr.d_reloc = R_NONE;
-       dstr.d_lng = 1;
-       dstr.d_relsymb = NULL;
-       dstr.d_reldisp = 0;
-       dstr.d_lab = NULL;
-
-       /*
-        *      Read a.out header.
-        */
-
-       (void) lseek(inf, offset, 0);
-
-       if  (read(inf, (char *)&filhdr, sizeof(filhdr)) != sizeof(filhdr))
-               return  0;
-
-       (void) lseek(inf, offset + DATAPOS, 0);
-
-       size = outf->ef_dsize;
-
-       while  (size > 0)  {
-               l = size > DBSIZE? DBSIZE: size;
-               if  (read(inf, (char *)inbuf, l) != l)
-                       return  0;
-               for  (i = 0;  i < l;  i++)  {
-                       dstr.d_contents = inbuf[i];
-                       (void) write(outf->ef_d, (char *)&dstr, sizeof(dstr));
-               }
-               size -= l;
-       }
-
-       /*
-        *      Repeat for BSS segment.
-        */
-
-       dstr.d_contents = 0;
-       for  (size = outf->ef_bsize;  size > 0;  size--)
-               (void) write(outf->ef_d, (char *)&dstr, sizeof(dstr));
-
-      /*
-        *      Extra one to cope with "end".
-        */
-
-       (void) write(outf->ef_d, (char *)&dstr, sizeof(dstr));
-       return  1;
-}
-
-/*
- *     Process symbol table segment.
- */
-
-int    rsymb(inf, offset, dproc, outf)
-int    inf;            /*  a.out file (possibly in library)  */
-long   offset;         /*  Offset from start of inf of a.out file  */
-symbol (*dproc)();
-register  ef_fid  outf;        /*  Output file descriptor  */
-{
-       register  symbol  csym;
-       struct  bhdr    filhdr;
-       struct  sym     isym;
-       register  long  size;
-       register  int   i, l;
-       char    inbuf[SYMLENGTH+1];
-
-       /*
-        *      Read a.out header.
-        */
-
-       (void) lseek(inf, offset, 0);
-
-       if  (read(inf, (char *)&filhdr, sizeof(filhdr)) != sizeof(filhdr))
-               return  0;
-
-       offset += SYMPOS;
-       size = filhdr.ssize;
-       if  (size <= 0)
-               return  1;
-
-       /*
-        *      Guesstimate symbol table vector size.
-        */
-
-       l = size / (sizeof(struct sym) + 4);
-       if  (l <= 0)
-               l = STINIT;
-
-       outf->ef_stvec = (symbol *) malloc(l * sizeof(symbol));
-       if  (outf->ef_stvec == NULL)
-               nomem();
-
-       outf->ef_stcnt = 0;
-       outf->ef_stmax = l;
-
-       while  (size > sizeof(struct sym))  {
-               (void) lseek(inf, offset, 0);
-               if  (read(inf, (char *)&isym, sizeof(isym)) != sizeof(isym))
-                       return  0;
-               size -= sizeof(isym);
-               l = SYMLENGTH;
-               if  (l > size)
-                       l = size;
-               if  (read(inf, inbuf, l) != l)
-                       return  0;
-               inbuf[l] = '\0';
-               for  (i = 0; inbuf[i] != '\0';  i++)
-                       ;
-               size -= i + 1;
-               offset += sizeof(isym) + i + 1;
-               csm = (*dproc)(lookup(inbuf), isym.stype, isym.svalue, outf);
-               if  (outf->ef_stcnt >= outf->ef_stmax)
-                       reallst(outf);
-               outf->ef_stvec[outf->ef_stcnt++] = csym;
-       }
-       return  1;
-}
-
-/*
- *     Process relocation stuff.  -1 error, 0 no relocation, 1 relocation.
- */
-
-int    rrel(inf, offset, outf)
-int    inf;            /*  a.out file (possibly in library)  */
-long   offset;         /*  Offset from start of inf of a.out file  */
-ef_fid outf;           /*  Output file descriptor  */
-{
-       struct  bhdr    filhdr;
-       struct  reloc   crel;
-       t_entry tstr;
-       d_entry dstr;
-       register  long  size;
-       long    cont, pos;
-
-       /*
-        *      Read a.out header.
-        */
-
-       (void) lseek(inf, offset, 0);
-
-       if  (read(inf, (char *)&filhdr, sizeof(filhdr)) != sizeof(filhdr))
-               return  -1;
-       if  (filhdr.rtsize <= 0  &&  filhdr.rdsize <= 0)
-               return  0;
-
-       size  =  filhdr.rtsize;
-
-       (void) lseek(inf, RTEXTPOS + offset, 0);
-       while  (size >= sizeof(struct reloc))  {
-               if  (read(inf, (char *)&crel, sizeof(crel)) != sizeof(crel))
-                       return  -1;
-
-               pos = crel.rpos + outf->ef_tbase;
-               gette(outf, pos, &tstr);
-               tstr.t_reloc = crel.rsize + 1;  /*  Fiddle!  YUK!!!  */
-               tstr.t_rdisp = crel.rdisp;
-               tstr.t_rptr = crel.rsegment;
-               if  (crel.rsegment == REXT)  {
-                       if  (crel.rsymbol >= outf->ef_stcnt)
-                               return  -1;
-                       tstr.t_relsymb = outf->ef_stvec[crel.rsymbol];
-                       tstr.t_reldisp = gettw(outf, pos, (int)crel.rsize+1);
-               }
-               else  {
-                       cont = gettw(outf, pos, (int)crel.rsize+1);
-                       tstr.t_relsymb = getnsymb(outf, crel.rsegent, cont);
-               }
-               tstr.t_relsymb->s_used++;
-               putte(outf, pos, &tstr);
-               size -= sizeof(crel);
-       }
-
-       /*
-        *      And now repeat all that for data relocations.
-        */
-
-       size  =  filhdr.rdsize;
-
-       (void) lseek(inf, RDATAPOS + offset, 0);
-       while  (size >= sizeof(struct reloc))  {
-               if  (read(inf, (char *)&crel, sizeof(crel)) != sizeof(crel))
-                       return  -1;
-
-               pos = crel.rpos + outf->ef_dbase;
-               getde(outf, pos, &dstr);
-               dstr.d_reloc = crel.rsize + 1;  /*  Fiddle!  YUK!!!  */
-               dstr.d_rptr = crel.rsegment;
-
-               if  (crel.rsegment == REXT)  {
-                       if  (crel.rsymbol >= outf->ef_stcnt)
-                               return  -1;
-                       dstr.d_relsymb = outf->ef_stvec[crel.rsymbol];
-                       dstr.d_reldisp = getdw(outf, pos, (int)crel.rsize+1);
-               }
-               else  {
-                       cont = getdw(outf, pos, (int)crel.rsize+1);
-                       dstr.d_relsymb = getnsymb(outf, crel.rsegment, cont);
-                       if  (dstr.d_relsymb->s_type == TEXT)  {
-                               gette(outf, cont, &tstr);
-                               tstr.t_dref = 1;
-                               putte(outf, cont, &tstr);
-                       }
-               }
-               switch  (crel.rsize)  {
-               default:
-                       unimpl("Data byte relocation");
-                       break;
-               case  RWORD:
-                       unimpl("data word reloc");
-                       dstr.d_type = D_WORD;
-                       dstr.d_lng = 2;
-                       setde(outf, pos+1, D_CONT, 1);
-                       break;
-               case  RLONG:
-                       dstr.d_type = D_ADDR;
-                       dstr._lng = 4;
-                       setde(outf, pos+1, D_CONT, 1);
-                       setde(outf, pos+2, D_CONT, 1);
-                       setde(outf, pos+3, D_CONT, 1);
-                       break;
-               }
-               dstr.d_relsymb->s_used++;
-               putde(outf, pos, &dstr);
-               size -= sizeof(crel);
-       }
-       return 1;
-}
-
-/*
- *     Process a symbol.
- */
-
-symbol dosymb(sy, type, val, fid)
-register  symbol  sy;
-int    type;
-long   val;
-ef_fid fid;
-{
-       t_entry tstr;
-       d_entry dstr;
-
-       if  (!sy->s_newsym)  {
-               if  (type & EXTERN)  {
-                       (void) fprintf(stderr, "Duplicate symbol %s\n", sy->s_name);
-                       exit(10);
-               }
-               if  (++sy->s_defs > nmods)
-                       nmods = sy->s_defs;
-               sy = inventsymb("DUP");
-       }
-
-       sy->s_value = val;
-
-       switch  (type)  {
-       default:
-               return  NULL;
-
-       case  EXTERN|UNDEF:
-               if  (val != 0)  {
-                       sy->s_type = COMM;
-                       addit(&comtab, sy);
-               }
-               else
-                       sy->s_type = N_UNDF;
-               sy->s_glob = 1;
-               break;
-
-       case  EXTERN|ABS:
-               sy->s_type = N_ABS;
-               sy->s_glob = 1;
-               addit(&abstab, sy);
-               break;
-
-       case  ABS:
-               sy->s_type = N_ABS;
-               addit(&abstab, sy);
-               break;
-
-       case  EXTERN|TEXT:
-       case  TEXT:
-               sy->s_type = N_TEXT;
-               gette(fid, val, &tstr);
-               tstr.t_bdest = 1;
-               if  (type & EXTERN)  {
-                       tstr.t_gbdest = 1;
-                       sy->s_glob = 1;
-               }
-               sy->s_link = tsr.t_lab;
-               tstr.t_lab = sy;
-               putte(fid, val, &tstr);
-               break;
-
-       case  BSS:
-       case  EXTERN|BSS:
-               sy->s_type = N_BSS;
-               goto    datrest;
-       case  DATA:
-       case  EXTERN|DATA:
-               sy->s_type = N_DATA;
-       datrest:
-               getde(fid, val, &dstr);
-               if  (type & EXTERN)
-                       sy->s_glob = 1;
-               sy->s_link = dstr.d_lab;
-               dstr.d_lab = sy;
-               putde(fid, val, &dstr);
-               break;
-       }
-
-       sy->s_newsym = 0;
-       return  sy;
-}
-
-/*
- *     Process relocation stuff in putative library modules.
- *     The main function of all this is to mark which bits of the text
- *     not to look at as I compare the stuff.
- *
- *     As with "rrel", return -1 error, 0 no relocation, 1 relocation.
- */
-
-int    rrell1(inf, offset, outf)
-int    inf;            /*  a.out file (possibly in library)  */
-long   offset;         /*  Offset from start of inf of a.out file  */
-ef_fid outf;           /*  Output file descriptor  */
-{
-       struct  bhdr    filhdr;
-       struct  reloc   crel;
-       t_entry tstr;
-       register  long  size;
-       long    pos;
-
-       /*
-        *      Read a.out header.
-        */
-
-       (void) lseek(inf, offset, 0);
-
-       if  (read(inf, (char *)&filhdr, sizeof(filhdr)) != sizeof(filhdr))
-               return  -1;
-       if  (filhdr.rtsize <= 0  &&  filhdr.rdsize <= 0)
-               return  0;
-
-       size  =  filhdr.rtsize;
-
-       (void) lseek(inf, RTEXTPOS + offset, 0);
-       while  (size >= sizeof(struct reloc))  {
-               if  (read(inf, (char *)&crel, sizeof(crel)) != sizeof(crel))
-                       return  -1;
-
-               pos = crel.rpos + outf->ef_tbase;
-               gette(outf, pos, &tstr);
-               tstr.t_reloc = crel.rsize + 1;  /*  Fidde!  YUK!!!  */
-               tstr.t_rdisp = crel.rdisp;
-               tstr.t_rptr = crel.rsegment;
-               tstr.t_isrel = 1;
-               putte(outf, pos, &tstr);
-               if  (crel.rsize == RLONG)  {
-                       gette(outf, pos+2, &tstr);
-                       tstr.t_isrel = 1;
-                       putte(outf, pos+2, &tstr);
-               }
-               size -= sizeof(crel);
-       }
-
-       /*
-        *      Dont bother with data relocation at this stage. We'll
-        *      tie that up later.
-        */
-
-       return 1;
-}
-
-/*
- *     Process a symbol in library file.  The extern variable trelpos gives
- *     the place in the main file where the library module is relocated.
- *     We don't know the data position until we do the final merge, perhaps
- *     not even then.
- */
-
-symbol dolsymb(sy, type, val, fid)
-register  symbol  sy;
-int    type;
-long   val;
-ef_fid fid;
-{
-       t_entry tstr;
-
-       switch  (type)  {
-       default:
-               return  NULL;
-
-       case  EXTERN|UNDEF:
-               if  (!sy->s_newsym)
-                       return  sy;
-               sy->s_value = val;
-               if  (val != 0)  {
-                       sy->s_type = COMM;
-                       addit(&dreltab, sy);
-               }
-               else
-                       sy->s_type = N_UNDF;
-               sy->s_glob = 1;
-               break;
-
-       case  EXTERN|ABS:
-               if  (!sy->s_newsym)  {
-                       if  (sy->s_type != N_ABS || sy->s_value != val)
-                               lclash("abs");
-               }
-               sy->s_type = N_ABS;
-               sy->s_value = val;
-               sy->s_glob = 1;
-               addit(&abstab, sy);
-               break;
-
-       case  EXTERN|TEXT:
-               sy->s_type = N_TEXT;
-               val += trelpos - fid-ef_tbase;
-               if  (!sy->s_newsym)  {
-                       if  (val != sy->s_value)
-                               lclash("tsym");
-                       return  sy;
-               }
-               sy->s_value = val;
-               gette(&mainfile, val, &tstr);
-               tstr.t_bdest = 1;
-               tstr.t_gbdest = 1;
-               sy->s_glob = 1;
-               sy->s_link = tstr.t_lab;
-               tstr.t_lab = sy;
-               putte(&mainfile, val, &tstr);
-               break;
-
-       case  EXTERN|BSS:
-               if  (!sy->s_newsym)
-                       return  sy;
-               sy->s_type = N_BSS;
-               sy->s_value = val - fid->ef_bbase;
-               goto    datrest;
-
-       case  EXTERN|DATA:
-               if  (!sy->s_newsym)
-                       return  sy;
-               sy->s_type = N_DATA;
-               sy->s_value = val - fid->ef_dbase;
-       datrest:
-               sy->s_glob = 1;
-               addit(&dreltab, sy);
-               break;
-       }
-
-       sy->s_newsym = 0;
-       return  sy;
-}
-
-/*
- *     Change definition of undefined symbol as we define it.
- */
-
-void   reassign(sy, val)
-register  symbol  sy;
-long   val;
-{
-       sy->s_value = val;
-
-       if  (val < mainfile.ef_tbase)  {
-               sy->s_type = N_ABS;
-               addit(&abstab, sy);
-       }
-       else  if  (val < mainfile.ef_dbase)  {
-               t_entry tstr;
-
-               sy->s_type = N_TEXT;
-               gette(&mainfile, val, &tstr);
-               tstr.t_bdest = 1;
-               tstr.t_gbdest = 1;
-               sy->s_glob = 1;
-               sy->s_link = tstr.t_lab;
-               tstr.t_lab = sy;
-               putte(&mainfile, val, &tstr);
-       }
-       else  {
-               d_entry dstr;
-
-               sy->s_type = val < mainfile.ef_bbase? N_DATA: N_BSS;
-               getde(&mainfile, val &dstr);
-               sy->s_link = dstr.d_lab;
-               dstr.d_lab = sy;
-               putde(&mainfile, val, &dstr);
-       }
-}
-
-/*
- *     When we discover where bss or data come, reallocate the table.
- */
-
-void   zapdat(seg, inc)
-int    seg;
-long   inc;
-{
-       register  int   i;
-       register  symbol  csymb;
-       d_entry dent;
-
-       for  (i = 0;  i < dreltab.c_int;  i++) {
-               csymb = dreltab.c_symb[i];
-               if  (csymb->s_type != seg)
-                       continue;
-               csymb->s_value += inc;
-               getde(&mainfile, csymb->s_value, &dent);
-               csymb->s_link = dent.d_lab;
-               dent.d_lab = csymb;
-               putde(&mainfile, csymb->s_value, &dent);
-       }
-}
-
-/*
- *     Process relocation stuff in library module which we are inserting.
- *     Horrors if something goes wrong.
- */
-
-void   rrell2(inf, offset, outf)
-int    inf;            /*  a.out file (possibly in library)  */
-long   offset;         /*  Offset from start of inf of a.out file  */
-ef_fid outf;           /*  Output file descriptor  */
-{
-       struct  bhdr    filhdr;
-       struct  reloc   crel;
-       t_entry mtstr;
-       d_entry mdstr;
-       register  long  size;
-       register  symbol  csymb;
-       long    pos, mpos, mval, lval;
-       int     dhere = 0;              /*  Mark whether bss done  */
-
-       /*
-        *      Read a.out header.
-        */
-
-       (void) lseek(inf, offset, 0);
-
-       if  (read(inf, (char *)&filhdr, sizeof(filhdr)) != sizeof(filhdr))
-               return;
-       if  (filhdr.rtsize <= 0  &&  filhdr.rdsize <= 0)
-               return;
-
-       size  =  filhdr.rtsize;
-
-       (void) lseek(inf, RTEXTPOS + offset, 0);
-       for  (;  size >= sizeof(struct reloc);  size -= sizeof(crel))  {
-               if  (read(inf, (char *)&crel, sizeof(crel)) != sizeof(crel))
-                       lclash("rd rel");
-
-               pos = crel.rpos + outf->ef_tbase;
-               mpos = crel.rpos + trelpos;
-               gette(&mainfile, mpos, &mtstr);
-               lval = gettw(outf, pos, (int)crel.rsize+1);
-               mval = gettw(&mainfile, mpos, (int)crel.rsize+1);
-
-               switch  (crel.rsegment)  {
-               case  RTEXT:
-                       if  (lval + trelpos - outf->ef_tbase != mval)
-                               lclash("Trel");
-                       continue;
-               case  RDATA:
-                       if  (donedrel)  {
-                               if  (lval + drelpos - outf->ef_dbase != mval)
-                                       lclash("Drel");
-                       }
-                       else  {
-                               donedrel++;
-                               drelpos = mval - lval + outf->ef_dbase;
-                       }
-                       continue;
-               case  RBSS:
-                       if  (donebrel)  {
-                               if  (lval + brelpos - outf->ef_bbase != mval)
-                                       lclash("brel");
-                       }
-                       else  {
-                               donebrel++;
-                               brelpos = mval - lval + outf->ef_bbase;
-                       }
-                       continue;
-               case  REXT:
-                       if  (crel.rsymbol >= outf->ef_stcnt)
-                               lclash("Bad sy no");
-                       csymb = outf->ef_stvec[crel.rsymbol];
-                       if  (csymb == NULL)
-                               continue;
-                       switch  (csymb->s_type)  {
-                       case  N_UNDF:
-                               reassign(csymb, mval - lval);
-                               break;
-                       case  N_ABS:
-                               if  (lval + csymb->s_value != mval)
-                                      lclash("abs rel");
-                               break;
-                       case  N_TEXT:
-                               if  (lval + csymb->s_value != mval)
-                                       lclash("text rel");
-                               break;
-                       case  N_DATA:
-                               if  (lval + csymb->s_value != mval)
-                                       lclash("data rel");
-                               break;
-                       case  N_BSS:
-                               if  (lval + csymb->s_value != mval)
-                                       lclash("bss rel");
-                               break;
-                       case  COMM:
-                               reassign(csymb, mval - lval);
-                               break;
-                       }
-                       mtstr.t_relsymb = csymb;
-                       mtstr.t_reldisp = lval;
-                       break;
-               }
-       }
-
-       /*
-        *      Relocate data and bss if possible.
-        */
-
-       if  (donebrel)  {
-               zapdat(N_BSS, brelpos);
-               dhere++;
-       }
-
-       if  (!donedrel)
-               return;
-
-
-       zapdat(N_DATA, drelpos);
-
-       /*
-        *      And now repeat all that for data relocations if possible
-        */
-
-       size  =  filhdr.rdsize;
-
-       (void) lseek(inf, RDATAPOS + offset, 0);
-       for  (;  size >= sizeof(struct reloc); size -= sizeof(crel))  {
-               if  (read(inf, (char *)&crel, sizeof(crel)) != sizeof(crel))
-                       lclash("Rd drel");
-
-               if  (crel.rsize != RLONG)
-                       continue;
-
-               pos = crel.rpos + outf->ef_dbase;
-               mpos = crel.rpos + drelpos;
-               getde(&mainfile, mpos, &mdstr);
-               lval = getdw(outf, pos, (int)crel.rsize+1);
-              mval = getdw(&mainfile, mpos, (int)crel.rsize+1);
-               switch  (crel.rsegment)  {
-               case  RTEXT:
-                       if  (lval + trelpos - outf->ef_tbase != mval)
-                               lclash("Trel-d");
-                       continue;
-               case  RDATA:
-                       if  (lval + drelpos - outf->ef_dbase != mval)
-                               lclash("Drel-d");
-                       continue;
-               case  RBSS:
-                       if  (donebrel)  {
-                               if  (lval + brelpos - outf->ef_bbase != mval)
-                                       lclash("brel");
-                       }
-                       else  {
-                               donebrel++;
-                               brelpos = mval - lval + outf->ef_bbase;
-                       }
-                       continue;
-               case  REXT:
-                       if  (crel.rsymbol >= outf->ef_stcnt)
-                               lclash("Bad sy no");
-                       csymb = outf->ef_stvec[crel.rsymbol];
-                       if  (csymb == NULL)
-                               continue;
-                       switch  (csymb->s_type)  {
-                       case  N_UNDF:
-                               reassign(csymb, mval - lval);
-                               break;
-                       case  N_ABS:
-                               if  (lval + csymb->s_value != mval)
-                                       lclash("abs rel");
-                               break;
-                       case  N_TEXT:
-                               if  (lval + csymb->s_value != mval)
-                                       lclash("text rel");
-                               break;
-                       case  N_DATA:
-                               if  (lval + csymb->s_value != mval)
-                                       lclash("data rel");
-                               break;
-                      case  N_BSS:
-                               if  (lval + csymb->s_value != mval)
-                                       lclash("bss rel");
-                               break;
-                       case  COMM:
-                               reassign(csymb, mval - lval);
-                               break;
-                       }
-                       mtstr.t_relsymb = csymb;
-                       mtstr.t_reldisp = lval;
-                       break;
-               }
-       }
-
-       if  (dhere || !donebrel)
-               return;
-
-       zapdat(N_BSS, brelpos);
-}
//GO.SYSIN DD robj.c
--
John M Collins          ....mcvax!ist!inset!jmc
Phone:  [phone]
Snail Mail: 47 Cedarwood Drive, St Albans, Herts, AL4 0DN, England.
                         brelpos = mval - lval + outf->ef_bbase;
-                       }
-